use C::C1;
my $c1 = C::C1->new;
$c1->a_method_1();   # will execute A::a_method_1
$c1->b_method_1();   # will execute B::b_method_1
$c1->new_d(@params)  # will execute $self->{_d} = D->new(@params)