File Coverage

blib/lib/Try/Tiny/Except.pm

Criterion	Covered	Total	%
statement	40	42	95.2
branch	11	12	91.6
condition			n/a
subroutine	13	13	100.0
pod	0	1	0.0
total	64	68	94.1

package Try::Tiny::Except;

use 5.010000;
use strict;
use warnings;

use Try::Tiny qw/catch finally/;
BEGIN { eval "use Sub::Name; 1" or *{subname} = sub {1} }
my $try_orig;
BEGIN { $try_orig = \&Try::Tiny::try };

use Exporter 5.57 'import';

our @EXPORT = our @EXPORT_OK = qw/try catch finally/;

our $VERSION = '0.01';

our $always_propagate;

sub try (&;@) {
    if ($always_propagate) {
        my $found;
        for my $code (@_) {
            if (ref($code) eq 'Try::Tiny::Catch') {
                $found=1;
                my $sub=$$code;
                my $caller = caller;
                subname("${caller}::catch {...} " => $sub);
                my $new=sub {
                    die $_ if $always_propagate->();
                    goto &$sub;
                };
                $code=bless \$new, 'Try::Tiny::Catch';
            }
        }
        unless ($found) {
            my $new=sub {
                die $_ if $always_propagate->();
                return;
            };
            splice @_, 1, 0, bless (\$new, 'Try::Tiny::Catch');
        }
    }

    goto &$try_orig;
}

{
    no warnings 'redefine';
    *Try::Tiny::try = \&try;
}

1;
__END__