Test::MockObject::Extendsで手作りオブジェクトスパイ - Qiita

package Sample; ######## Test target object use strict; use warnings; sub new { my ($class) = @_; return bless {}, $class; } sub foo { return "bar"; } package main; ######## Test code use strict; use warnings; use Test::More; use Test::MockObject::Extends; my $sample = Sample->new; my @foo_log = (); Test::MockObject::Extends->new($sample); my $original = $sample->can("foo"); $sample->mock(foo => s