Select Code to Download

package Top::Base;
use Moose; 1;
...

package SubordinateB; use Moose; extends 'Top::Base'; 1;

package Top;

...
    my $impl= "Top::$options{ base }";
    $impl->new( %options );
};