Why mock doesn't work in this case?

PerlOnTheWay has asked for the wisdom of the Perl Monks concerning the following question:

try.t:

#! /usr/bin/perl
use strict;
use warnings;
use Test::MockModule;

my $father = Test::MockModule->new('Father');
$father->mock(alert => sub {
        print 'replaced by try' . $/;
});
do 'Son.pm';
[download]

Father.pm

package Father;

sub alert {
    print 'father' . $/;
}

1
[download]

Son.pm:

package Son;

use base Father;

sub new {
    bless {}, Son;
   *{'Father::alert'} = sub {
       print 'son' . $/;
   };
}
Son->new->alert();
[download]

When I run try.t,nothing is outputed

But if I delete the typeglob operation in Son.pm, I can get something outputed

why?

Comment on Why mock doesn't work in this case? Select or Download Code

Replies are listed 'Best First'.
Re: Why mock doesn't work in this case? by tobyink (Canon) on Jan 06, 2012 at 10:05 UTC
Son::new doesn't return the blessed object. Try: `sub new { *{'Father::alert'} = sub { print 'son' . $/; }; bless {}, Son; }` [download]	[reply] [d/l]