Select Code to Download

no warnings 'redefine';
*Foo::real_new = \&Foo::new;
...
    print "Returning fake Foo.\n";
    return FakeFoo->new;
};

{
  package Foo;
...
    return FakeFoo->new(@args);
  };
}