Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change

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


Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://278662]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (5)
As of 2017-01-20 23:39 GMT
Find Nodes?
    Voting Booth?
    Do you watch meteor showers?

    Results (180 votes). Check out past polls.