class Foo { my method bar {...} } #### sub bar { croak "Oi! You're not a foo!" unless $_[0]->isa(__PACKAGE__); }