package ClassB;
use Moose;
extends 'ClassA';

has '+param2' => (default => 'PARAM2-CLASSB');

around FOREIGNBUILDARGS => sub {
    my $orig = shift;
    my $class = shift;
    return $class->$orig(param1=>'PARAM1-CLASSB',@_);
};