my $x=bless {},"My::B";

##</code><code>##

croak "Must be called from a My::A class or subclass."
      unless UNIVERSAL::isa(scalar caller(),"My::A");