PerlのTest Tips　メソッド内で面倒な関数が呼ばれているから、回避したい場合 - Qiita

PerlのTest Tips　メソッド内で面倒な関数が呼ばれているから、回避したい場合 - Qiita

Perlのテストを作っているとき、あるメソッドで呼ばれている関数が邪魔なので、任意の値を返すようなモ...概要を表示 Perlのテストを作っているとき、あるメソッドで呼ばれている関数が邪魔なので、任意の値を返すようなモックにしたい場合。 邪魔な関数 ＝ 例えば、その関数はネットワークアクスが必要とか、DBアクセスして、特定のデータセットが必要とか。 package TestTargetXXX; use Some::Module qw(getIDfromDB); sub sample_func { my $self = shift; my %param = @_; my $id = &getIDfromDB($param{key}); # (略) return $key_code; } subtest "sample_func test." => sub { my $obj = TestTargetXXX->new(); %param = (key => 'XXX'); $rtn = $obj->sampe