You know how it is, you're yakking away with friends on IRC and someone proposes:
sub UNIVERSAL::cant { ! UNIVERSAL::can(@_) };
Which is all very well, but consider:
sub can't {
my $self = shift;
!(ref($self) ? $self->can(@_)
: UNIVERSAL::can($self, @_));
}
sub isn't { ... }
At present, this valid, but scary perl syntax. Even in an OO context, you should find that $obj->can't('method') will work...
Eew.
