[Date Prev][Date Next][Thread Prev][Thread Next] [Search] [Date Index] [Thread Index]

Re: [Fun With Perl] Package Retrofit


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"


John Porter


==== 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