Comment puis-je simuler -f sur un objet en Perl?

Question

J'ai un objet Perl qui a défini use overload '""' => \&name; et une méthode name.

Dans mes tests unitaires j'ai raillé cet objet, y compris la méthode name, mais le code comme

if (-d $object) 

me donne encore Use of uninitialized value in -d .... La méthode simulée n'est pas en cours d'exécution.

Mon code Mock:

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

D'autres méthodes que j'ai raillé travaillent.

Answer 1

[Excessivement réponse compliquée impliquant evals string élidés.]

overload garde une idée de ce que sont en vigueur les surcharges dans un lieu magique. Parfois, en particulier avec les classes générées dynamiquement, il ne remarque pas de changement. Vous pouvez le forcer à prêter attention en bénissant un objet frais dans la classe. Vous pouvez immédiatement rejeter l'objet; l'événement de bénédiction est ce qui compte. Vous n'avez même pas besoin de stocker l'objet n'importe où. Les travaux suivants pour moi:

use Scalar::Util qw(blessed); 

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

print "$o\n";