Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?

Re: Exceptions vs Context Objects

by educated_foo (Vicar)
on Mar 31, 2006 at 18:17 UTC ( #540522=note: print w/ replies, xml ) Need Help??

in reply to Exceptions vs Context Objects

This looks like a perfect place for the under-appreciated nonlocal loop control operators, e.g.:

@sources = ( { pre => [sub { print 1; }, sub { print 2; last pre; }, sub { prin +t 3 }], post => [sub { print 4; }, sub { print 5; last source }] }, { pre => [sub { print "badness" }] } ); source: for (@sources) { pre: for (@{$_->{pre}}) { $_->(); } post: for (@{$_->{post}}) { $_->(); } } __END__ 1 2 4 5
Document a good set of labels, and your module will be both convenient to use and educational about Perl's dark corners.

Comment on Re: Exceptions vs Context Objects
Download Code

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://540522]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (17)
As of 2015-07-30 13:55 GMT
Find Nodes?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...

    Results (271 votes), past polls