* Jerrad Pierce <[EMAIL PROTECTED]> [2007-11-23 22:50]:
> exists( $dispatch{$sub} ) ? $dispatch{$sub}->() :
> warn "Key <$sub> does not exist in the dispatch table";
( $dispatch{$sub} || sub { warn "no such action '$sub'" } )->();
--
*AUTOLOAD=*_;sub _{s/(.*)::(.*)/print$2,(",$\/"," ")[defined wantarray]/e;$1}
&Just->another->Perl->hack;
#Aristotle Pagaltzis // <http://plasmasturm.org/>
