Re: [Fun With Perl] Package Retrofit

[Chris Nandor <pudge@pobox.com>]

At 11.04 -0400 1999.06.11, John Porter wrote:
>Here's something kinda fun, but useless:
>
>  sub UNIVERSAL::can::t { not UNIVERSAL::can @_ }
>
>  sub Foo::bar { }
>
>  print UNIVERSAL::can  ( "Foo", "bar" ) ? "yes\n" : "no\n";
>
>  print UNIVERSAL::can't( "Foo", "bar" ) ? "yes\n" : "no\n"

use D'oh;

--
Chris Nandor          mailto:pudge@pobox.com         http://pudge.net/
%PGPKey = ('B76E72AD', [1024, '0824090B CE73CA10  1FF77F13 8180B6B6'])

==== Want to unsubscribe from this list? (Don't you love us anymore?)
==== Well, if you insist... Send mail with body "unsubscribe" to
==== fwp-request@technofile.org