Select Code to Download

    package A;                 
    sub foo { print "called A::foo\n"; shift->NEXT::UNSEEN::foo() }
...
package ::;

E->foo();

#!/usr/local/bin/perl
use NEXT;
...
package ::;

GRANDCHILD->traverse();