#! /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]

package Father;

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

1

[download]

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?