[FWP] ABCs of JAPHs

[Jeff Pinyan <jeffp@crusoe.net>]

I am not certifiably insane.  It only looks that way.

# start
use overload;use less*b=sub{$_[0]=~y~A-Z~Just Another Perl Hacker\n~;print@_},
overload::constant(integer=>sub{sprintf"%X",$_[0]});*a=sub{$_=2893025453;y}1C0
7}LUOET};$_};*{&a}=*=,*==sub{local($~)=$==~m}(.)$};"$~".&{++$~}};*Z=sub{};b&A;
# end

That code uses AUTOLOAD in it... somewhere.

-- 
Jeff "japhy" Pinyan     japhy@pobox.com    http://www.pobox.com/~japhy/
CPAN - #1 Perl Resource  (my id:  PINYAN)       http://search.cpan.org/
PerlMonks - An Online Perl Community          http://www.perlmonks.com/
The Perl Archive - Articles, Forums, etc.   http://www.perlarchive.com/


==== Want to unsubscribe from Fun With Perl?  Well, if you insist...
==== Send email to <fwp-request@technofile.org> with message _body_
====   unsubscribe