File Coverage

blib/lib/Unwind/Protect.pm

Criterion	Covered	Total	%
statement	28	29	96.5
branch	10	12	83.3
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	44	47	93.6

package Unwind::Protect;
our $VERSION = '0.01';

use strict;
use warnings;
use Sub::Uplevel;
use Sub::Exporter -setup => {
    exports => ['unwind_protect'],
    groups  => {
        default => ['unwind_protect'],
    },
};

sub unwind_protect (&@) {
    my $code = shift;
    my %args = @_;

    my $wantarray = wantarray;

    my @ret;

    eval {
        if ($wantarray) {
            @ret = uplevel 1, $code;
        }
        elsif (defined $wantarray) {
            $ret[0] = uplevel 1, $code;
        }
        else {
            uplevel 1, $code;
        }
    };

    my $exception = $@;

    $args{after}->() if $args{after};

    if ($exception) {
        local $SIG{__DIE__};
        die $exception;
    }

    return @ret if $wantarray;
    return $ret[0] if defined $wantarray;
    return 0;
}

1;

__END__