File Coverage

blib/lib/Loop/Util.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch	6	6	100.0
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	29	29	100.0

use 5.014000;
use strict;
use warnings;

package Loop::Util;

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

# These are dynamically scoped by the rewritten loop keywords.
our ( $LOOPKIND, $LENGTH, $ITERATION );

my @ALL_KEYWORDS = qw( loop iffirst iflast ifodd ifeven __IX__ );
my %VALID = map { $_ => 1 } @ALL_KEYWORDS;

sub import {
	my ( $class, @keywords ) = @_;

	if ( !@keywords ) {
		@keywords = @ALL_KEYWORDS;
	}

	for my $keyword ( @keywords ) {
		die "Unknown Loop::Util keyword '$keyword'"
			if not exists $VALID{ $keyword };
	}

	my %enabled = map { $_ => 1 } @keywords;

	for my $keyword ( @ALL_KEYWORDS ) {
		if ( exists $enabled{ $keyword } ) {
			$^H{ "Loop::Util/$keyword" } = 1;
		}
		else {
			delete $^H{ "Loop::Util/$keyword" };
		}
	}
}

require XSLoader;
XSLoader::load( __PACKAGE__, $VERSION );

__PACKAGE__
__END__