File Coverage

blib/lib/PerlX/ArraySkip.pm

Criterion	Covered	Total	%
statement	15	17	88.2
branch	1	2	50.0
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	22	25	88.0

package PerlX::ArraySkip;

use 5.006;
#use strict;
#use warnings;

BEGIN {
	$PerlX::ArraySkip::AUTHORITY = 'cpan:TOBYINK';
	$PerlX::ArraySkip::VERSION   = '0.002';
}

sub import
{
	my $class  = shift;
	my $caller = caller;
	@_ = qw(arrayskip) unless @_;

	my $code = __PACKAGE__->can("arrayskip");

	#no strict 'refs';
	foreach my $func (@_)
	{
		*{"$caller\::$func"} = $code;
	}
}

unless (($ENV{PERLX_ARRAYSKIP_IMPLEMENTATION}||'') =~ /pp/i)
{
	eval q{ use PerlX::ArraySkip::XS 0.002 qw(arrayskip) };
}

__PACKAGE__->can('arrayskip') ? eval <<'END_XS' : eval <<'END_PP';

sub IMPLEMENTATION () { "XS" }

END_XS

sub IMPLEMENTATION () { "PP" }

sub arrayskip (@) { shift; @_ }

END_PP

1;

__END__