Re: Why mock doesn't work in this case?

[tobyink]

Son::new doesn't return the blessed object. Try:

sub new {
   *{'Father::alert'} = sub {
       print 'son' . $/;
   };
   bless {}, Son;
}