package Foo; use base 'Bar'; my @missing_methods = grep { ! Foo->can($_) } qw(foo bar baz); if (@missing_methods) { die "missing methods: @missing_methods"; } ...