# omit @ISA dance
sub new {
    my $class = shift;
    bless {
        Bobj => B->new(@_[0,1]),
        Cobj => C->new(@_[2,3])
    }, $class;
}