File Coverage

blib/lib/Error/Return.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch	1	2	50.0
condition			n/a
subroutine	7	7	100.0
pod	1	1	100.0
total	28	29	96.5

use 5.008;
use strict;
use warnings;

package Error::Return;
BEGIN {
  $Error::Return::VERSION = '1.110510';
}
# ABSTRACT: Really return() from a try/catch-block
use Scope::Upper qw(unwind want_at :words);
use Exporter qw(import);
our @EXPORT = qw(RETURN);

sub RETURN {
    my $context = SUB UP SUB UP SUB UP SUB;
    # read the context definition from right to left.
    # SUB == this sub: RETURN()
    # SUB UP SUB == the try() or catch() sub in which we're expected to run
    # SUB UP SUB UP SUB == the sub containing the try/catch block
    # SUB UP SUB UP SUB UP SUB == where we really want to return to

    # Do the cleanup that try() would normally do if the try-block had ended
    # without an exception; this is only necessary if using Error.pm, but
    # doesn't hurt if using Try::Tiny.

    shift @Error::STACK;
    unwind +(want_at($context) ? @_ : $_[0]) => $context;
}
1;


__END__