Select Code to Download

package A;

...

$a=B->new;
$a->doit;

doit in A
autoload in B, called as B::DESTROY

autoload in B, called as B::doit
autoload in B, called as B::DESTROY