Select Code to Download

use strict;

...

ROOT::B->new();
warn "new - $@" if $@;

use strict;
use warnings;
...
$compartment->reval(
    $despatch->{'A'}->test()
);

package A;

...

@ISA = qw(A);
1;