NAME
Fatal::Exception - Succeed or throw exception
SYNOPSIS
use Fatal::Exception 'Exception::System' => qw< open close >;
open my $fh, "/nonexistent"; # throw Exception::System
use Exception::Base 'Exception::My';
sub juggle { ... }
Fatal::Exception->import('Exception::My' => 'juggle');
juggle; # succeed or throw exception
Fatal::Exception->unimport('juggle');
juggle or die; # restore original behavior
DESCRIPTION
Fatal::Exception provides a way to conveniently replace functions which
normally return a false value when they fail with equivalents which
raise exceptions if they are not successful. This is the same as Fatal
module from Perl 5.8 and previous but it throws Exception::Base object
on error.
AUTHOR
Piotr Roszatycki <
[email protected]>
LICENSE
Copyright (C) 2007, 2008 by Piotr Roszatycki <
[email protected]>.
This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
See
http://www.perl.com/perl/misc/Artistic.html