Select Code to Download

package ClassB;
use Moose;
...
    my $class = shift;
    return $class->$orig(param1=>'PARAM1-CLASSB',@_);
};

package ClassA;
use Moose;
...
sub _build_param2 {
    return 'PARAM2-CLASSB';
}