Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number
 
PerlMonks  

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 :)
HTH

_________
broquaint


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

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (9)
As of 2014-08-22 20:52 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (165 votes), past polls