sub foo {
    my $self = shift;
    croak "I am an instance method" unless
        $self and ref $self and $self->isa(__PACKAGE__);    
    # actual body of code
}