File Coverage

blib/lib/Trace/Mask/TryTiny.pm

Criterion	Covered	Total	%
statement	32	32	100.0
branch	6	6	100.0
condition			n/a
subroutine	8	8	100.0
pod	0	1	0.0
total	46	47	97.8

package Trace::Mask::TryTiny;
use strict;
use warnings;

use Try::Tiny 0.03;
use Trace::Mask::Util qw/update_mask/;

sub mask_try_tiny {
    try {
        my @caller = caller(0);

        my $level = 1;
        while (my @deep = caller($level)) {
            last if $deep[3] eq __PACKAGE__ . '::mask_try_tiny';
            $level++;
        }

        update_mask($caller[1], $caller[2], '*', {hide => $level});
        die "should not see this";
    }
    catch {
        my @caller = caller(0);

        my $level = 1;
        while (my @deep = caller($level)) {
            last if $deep[3] eq __PACKAGE__ . '::mask_try_tiny';
            $level++;
        }

        update_mask($caller[1], $caller[2], '*', {hide => $level});
    }
    finally {
        my @caller = caller(0);

        my $level = 1;
        while (my @deep = caller($level)) {
            last if $deep[3] eq __PACKAGE__ . '::mask_try_tiny';
            $level++;
        }

        update_mask($caller[1], $caller[2], '*', {hide => $level});
    };
}

mask_try_tiny();

1;

__END__