sub does {
    my ($proto, @methods) = @_;
    return if !ref $proto || !blessed $proto; # DeMorgan
    my @coderefs = map {$proto->can($_) || ()} @methods;
    return @coderefs == @methods;
}