sub foo {
    my ($self, $object_or_class) = @_;
    die $message unless does($object_or_class, @methods);
    ...
}