Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling

Re: Learning how to use the Error module by example

by broquaint (Abbot)
on Jul 28, 2003 at 23:39 UTC ( #278662=note: print w/ replies, xml ) Need Help??

in reply to Learning how to use the Error module by example

Here's a little script I knocked up to test the capabilities of Error

use Error qw( :try ); sub foo { warn "calling bar()\n"; bar(); } sub bar { throw Error::Simple("test error"); } sub evaltest { require Blah::Blah::Blah; Blah::Blah::Blah->new(); } sub run { warn "TEST 1\n"; try { warn "calling foo()\n"; foo(); warn "foo called()\n"; } catch Error::Simple with { my $E = shift; warn "Caught error: $E"; }; warn "TEST 2\n"; try { warn "calling evaltest()\n"; evaltest(); } catch Error::Simple with { warn "Caught error: $_[0]\n"; }; try { throw Error::Simple("except me"); } except { return { Error => sub { warn "whoa: $_[0]\n" }, 'Error::Simple' => sub { warn "wah: $_[0]" }, }; }; warn "\nTesting done\n"; } main->run();
Essentially it'll catch anything that an eval block will and I've generally found it'll DTRT :)


Comment on Re: Learning how to use the Error module by example
Download Code

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (15)
As of 2016-02-11 16:06 GMT
Find Nodes?
    Voting Booth?

    How many photographs, souvenirs, artworks, trophies or other decorative objects are displayed in your home?

    Results (376 votes), past polls