如何在Perl中的对象上模拟-f？

Question

I have a Perl object that has defined use overload '""' => \\&name; and a name method.

In my unit tests I have mocked this object, including the name method, but code like

if (-d $object)

still gives me Use of uninitialized value in -d ... . The mocked method is not being executed.

My mock code:

my $CMmock = Test::MockObject::Extends->new('MyClass');
$CMmock->mock('name', sub { print "TEST!\n";});      
$CMmock->mock('""', sub {print "TEST!\n";});

Other methods that I have mocked are working.

Answer 1

[Overly complicated answer involving string evals elided.]

overload keeps an idea of what overloads are in effect in a magic place. Sometimes, especially with dynamically-generated classes, it fails to notice a change. You can force it to pay attention by blessing a fresh object into the class. You can immediately discard the object; the blessing event is what matters. You don't even have to store the object anywhere. The following works for me:

use Scalar::Util qw(blessed);

my $o = Test::MockObject::Extends->new('MyClass')
        ->mock(name => sub { "Bah!" })
;
bless {} => blessed $o;

print "$o\n";