Select Code to Download

#!
BEGIN { # Convert the warning to Carp::cluck
    $SIG{__WARN__} = sub {
...

print One()."\n";
exit;

package Mod1;

use Exporter;
...
     };

    1;

package Mod2;

use strict;
...
    return "Mod1::One";
     };
    1;

C:\Code\SecCage>perl redef.pl
Subroutine One redefined at Mod2.pm line 10.
 at redef.pl line 5
...
 at redef.pl line 5
        main::__ANON__('Subroutine One redefined at redef.pl line 23.\
+x{a}') called at redef.pl line 23
second