File Coverage

blib/lib/Loop/Control.pm

Criterion	Covered	Total	%
statement	18	31	58.0
branch	0	2	0.0
condition			n/a
subroutine	7	10	70.0
pod	3	3	100.0
total	28	46	60.8

use 5.008;
use strict;
use warnings;

package Loop::Control;
our $VERSION = '1.100861';
# ABSTRACT: FIRST and NEXT functions for loops
use Scope::Upper qw(reap :words);
use Exporter qw(import);
our @EXPORT  = qw(FIRST NEXT);

sub callstack_depth {
    my $depth = 0;
    while (caller($depth)) { $depth++ }
    $depth;
}

sub FIRST (&) {
    my $code = shift;
    my ($package, $filename, $line) = caller;
    my $callstack_depth = callstack_depth();
    my $key             = "FIRST $package $filename $line $callstack_depth";
    our %seen;
    unless ($seen{$key}++) {
        $code->();
    }
    reap sub { delete $seen{$key} } => UP UP;
}

sub NEXT (&) {
    my $code = shift;
    reap sub { $code->() } => UP;
}
1;


__END__