Select Code to Download

package One;

sub AUTOLOAD {
...
Two->try2();
$a = bless {}, Two;
$a->try3();

called try1 inside One
called try2 inside One
called try3 inside One
called DESTROY inside One