JAPH with AUTOLOAD
Feb 03
2008
2008
Comments Off
#!/usr/bin/perl JAPH->Just->Another->Perl->Hacker; package JAPH; sub AUTOLOAD { bless [print+($AUTOLOAD=~/::(.+)/)[0], q/ /] } sub DESTROY {}