Select Code to Download

sub initialize {
    return shift->call_super_before(\@_, sub {
...
    return;
    });
}

my($_BAR) = 1;
sub foo {
...
        return;
    });
}

package T1;
sub s1 {print("T1:s1\n")}
...
exists($T2::{s1}) && die('not here');
T3->s1;
exists($T2::{s1}) && die('here');