On Fri, 23 Nov 2007 23:18:20 +0100
"A. Pagaltzis" <[EMAIL PROTECTED]> wrote:
> * 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'" } )->();
>
or &{ ... || ... }->()
just to avoid problems like:
print ( $dispatch{$sub} || sub { warn } )->();
--
Vladi Belperchinov-Shabanski <[EMAIL PROTECTED]> <[EMAIL PROTECTED]>
http://cade.datamax.bg/ pgp/gpg key id: 6F35B214 (pgp.mit.edu)
--
equally destructive as we are, don't you think we've also gone too far?!
