sub foo {
  my $self = shift;
  die "Get out of my class" unless ref($self);  # not called as method
  die "Get out of my class" unless $self->isa('My::Class');
  
}