Select Code to Download

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

use Scalar::Util qw/blessed/;

sub does {
...
    }
    return wantarray ? @coderefs : \@coderefs;
}