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 <dexter@debian.org>
LICENSE
Copyright (C) 2007, 2008 by Piotr Roszatycki <dexter@debian.org>.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.