File Coverage

blib/lib/Exception/Class/TryCatch.pm

Criterion	Covered	Total	%
statement	31	31	100.0
branch	21	22	95.4
condition	2	3	66.6
subroutine	6	6	100.0
pod	2	2	100.0
total	62	64	96.8

use strict;
use warnings;

package Exception::Class::TryCatch;
# ABSTRACT: Syntactic try/catch sugar for use with Exception::Class
our $VERSION = '1.13'; # VERSION

our @ISA       = qw (Exporter);
our @EXPORT    = qw ( catch try );
our @EXPORT_OK = qw ( caught );

use Exception::Class;
use Exporter ();

my @error_stack;

#--------------------------------------------------------------------------#
# catch()
#--------------------------------------------------------------------------#

sub catch(;$$) { ## no critic
    my $e;
    my $err = @error_stack ? pop @error_stack : $@;
    if ( UNIVERSAL::isa( $err, 'Exception::Class::Base' ) ) {
        $e = $err;
    }
    elsif ( $err eq '' ) {
        $e = undef;
    }
    else {
        # use error message or hope something stringifies
        $e = Exception::Class::Base->new("$err");
    }
    unless ( ref( $_[0] ) eq 'ARRAY' ) {
        $_[0] = $e;
        shift;
    }
    if ($e) {
        if ( defined( $_[0] ) and ref( $_[0] ) eq 'ARRAY' ) {
            $e->rethrow() unless grep { $e->isa($_) } @{ $_[0] };
        }
    }
    return wantarray ? ( $e ? ($e) : () ) : $e;
}

*caught = \&catch;

#--------------------------------------------------------------------------#
# try()
#--------------------------------------------------------------------------#

sub try($) { ## no critic
    my $v = shift;
    push @error_stack, $@;
    return ref($v) eq 'ARRAY' ? @$v : $v if wantarray;
    return $v;
}

1;

__END__