Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic

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]
[1nickt]: perl -wE 'say for map { ... } 1..3;' # "Unimplemented at -e line 1" ... <c>perlsyn says that should throw a syntax error...
[karlgoethebier]: 1nickt: "Edge cases..." Yes, it seems so. Thanks Nick

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (9)
As of 2017-11-18 19:48 GMT
Find Nodes?
    Voting Booth?
    In order to be able to say "I know Perl", you must have:

    Results (277 votes). Check out past polls.