Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things

Why mock doesn't work in this case?

by PerlOnTheWay (Scribe)
on Jan 06, 2012 at 09:45 UTC ( #946566=perlquestion: print w/replies, xml ) Need Help??
PerlOnTheWay has asked for the wisdom of the Perl Monks concerning the following question:

#! /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 '';
package Father; sub alert { print 'father' . $/; } 1
package Son; use base Father; sub new { bless {}, Son; *{'Father::alert'} = sub { print 'son' . $/; }; } Son->new->alert();

When I run try.t,nothing is outputed

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


Replies are listed 'Best First'.
Re: Why mock doesn't work in this case?
by tobyink (Abbot) 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; }

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://946566]
Approved by Corion
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (5)
As of 2016-10-26 04:10 GMT
Find Nodes?
    Voting Booth?
    How many different varieties (color, size, etc) of socks do you have in your sock drawer?

    Results (333 votes). Check out past polls.