File Coverage

blib/lib/return/thence.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch	3	4	75.0
condition	4	6	66.6
subroutine	6	6	100.0
pod	0	1	0.0
total	33	37	89.1

package return::thence;

use 5.008;
use strict;
use warnings;

BEGIN {
	$return::thence::AUTHORITY = 'cpan:TOBYINK';
	$return::thence::VERSION   = '0.002';
}

use Scope::Upper qw( unwind CALLER );

sub return::thence
{
	my @caller = caller(my $i = 0);
	my $ctx = CALLER(0);
	while (my @level = caller(++$i)) {
		next if $level[1] ne $caller[1];  # filename
		last if $level[3] =~ /^$caller[0]\::(\w+)$/ && $1 ne '__ANON__' && ($ctx = CALLER $i);
	}
	unwind @_ => $ctx;
}

1
__END__