my $self=bless({},"A");
$self->moo;              #equivalent to $self->A::moo