sub does {
    my ( $proto, @method ) = @_;
    return if ref $proto && !blessed $proto;
    my @does;
    push @does, $proto->can( $_ ) || return foreach @method;
    return wantarray ? @does : \@does;
}