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