package foo;

sub whatever {
   my $self = shift;

   unless ( UNIVERSAL::isa( $self, __PACKAGE__ ) ) {
	die( "Can't do that!" );
   }

   ...
}