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