Thanks I missed that.sub try (&@) { my($try,$catch) = @_; eval { &$try }; if ($@) { local $_ = $@; &$catch; } } sub catch (&) { $_[0] } try { die "phooey"; } catch { /phooey/ and print "unphooey\n"; };
Graciliano M. P.
"Creativity is the expression of liberty".
In reply to Re^2: Prototype "foo {...} bar {...}" is documented?
by gmpassos
in thread Prototype "foo {...} bar {...}" is documented?
by gmpassos
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |