Help for this page
no warnings 'redefine'; *Foo::real_new = \&Foo::new; ... print "Returning fake Foo.\n"; return FakeFoo->new; };
{ package Foo; ... return FakeFoo->new(@args); }; }