foreach my $meth(@required_methods) { unless($obj->can($meth)) { die "Object has not implemented or inhereted method $meth!\n"; } }