File Coverage

blib/lib/Acme/Loopy.pm

Criterion	Covered	Total	%
statement	20	21	95.2
branch			n/a
condition			n/a
subroutine	8	9	88.8
pod			n/a
total	28	30	93.3

use 5.012;
use strict;
use warnings;
use Keyword::Simple ();

{
	package Acme::Loopy;

	our $AUTHORITY = 'cpan:TOBYINK';
	our $VERSION   = '0.004';

	sub import
	{
		Keyword::Simple::define loop => sub {
			my ($ref) = @_;
			my $rand = 99_999 + int rand 900_000;
			substr($$ref, 0, 0) =
				q{ local ${^_LOOP_OLD}     = ${^LOOP}; } .
				q{ local ${^_LOOP_CURRENT} = -1; } .
				q{ while ( ${^LOOP} = ++${^_LOOP_CURRENT}, my $__guard_}.$rand.q{ = Acme::Loopy::Guard->new(${^_LOOP_OLD}, \${^LOOP}) )};
		};
	}

	sub unimport
	{
		Keyword::Simple::undefine loop => ();
	}
}

{
	package Acme::Loopy::Guard;

	our $AUTHORITY = 'cpan:TOBYINK';
	our $VERSION   = '0.004';

	sub new
	{
		my $class = shift;
		bless \@_, $class;
	}

	sub DESTROY
	{
		${$_[0][1]} = $_[0][0];
	}
}

1;

__END__