Select Code to Download

package ClassA;
use Moose;
use MooseX::NonMoose;
...

    return ( $param1 );
}

package ClassB;
use Moose;
extends 'ClassA';
...
    my $class = shift;
    return $class->$orig(param2=>'PARAM2-CLASSB', @_);
};