package ClassB;
use Moose;
extends 'ClassA';

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

around BUILDARGS  => sub {
    my $orig = shift;
    my $class = shift;
    return $class->$orig(param2=>'PARAM2-CLASSB', @_);
};