File Coverage

blib/lib/List/Util/XS.pm

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

package List::Util::XS;
use strict;
use warnings;

our $VERSION = "1.46_01";       # FIXUP
our $XS_VERSION = $VERSION;
$VERSION = eval $VERSION;    # FIXUP

require Exporter;

our @ISA        = qw(Exporter);
our @EXPORT_OK  = qw(
  all any first min max minstr maxstr none notall product reduce sum sum0 shuffle uniq uniqnum uniqstr
  pairs unpairs pairkeys pairvalues pairmap pairgrep pairfirst
);

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

sub List::Util::XS::_Pair::key   { $_[0][0] }
sub List::Util::XS::_Pair::value { $_[0][1] }

sub import
{
  my $pkg = caller;

  # (RT88848) Touch the caller's $a and $b, to avoid the warning of
  #   Name "main::a" used only once: possible typo" warning
  no strict 'refs';
  ${"${pkg}::a"} = ${"${pkg}::a"};
  ${"${pkg}::b"} = ${"${pkg}::b"};

  goto &Exporter::import;
}


1;
__END__