package Foo; use Carp; # Time passes # Import method that checks existence of abstract methods in subclasses. sub import { my $pkg = shift; return if $pkg eq __PACKAGE__; foreach my $meth ( qw(foo bar) ) { $pkg->can($meth) or croak("Class $pkg does not define method $meth"); } $pkg->SUPER::import(@_); }