Select Code to Download

$ perl -MAA -e 'AA->mysub()'
AA
BB

perl -MBB -e 'AA->mysub()'
The method 'mysub' was not found in the inheritance hierarchy for AA a
+t /usr/local/lib/perl/5.14.2/Class/MOP/Class.pm line 1053.
...
Compilation failed in require.
BEGIN failed--compilation aborted.

package AA;
use utf8;
...
    print "AA\n";
    shift->();
};

package BB;
use utf8;
...
use CC;

sub mysub { print "BB\n";}

package CC;

use AA;
1;

$ perl -MBB -e 'AA->mysub()'
AA
BB

package AA;
use utf8;
...
    shift->SUPER::mysub();
};

package BB;
use utf8;
...

sub mysub { print "BB\n";}
1;

package CC;

use AA;
1;