みひゃろぐ

テストの時にこんな感じのことをして内部で使用しているメソッドの挙動を無理矢理変えていた。 { # てきとうなクラス package Hoge; sub hoge { 'hoge' } # こいつを上書きしたい } say Hoge::hoge; #=> hoge sub run_with_mock { my %args = @_; no warnings 'redefine'; *Hoge::hoge = $args{mock}; $args{run}->(); } r…