File Coverage

blib/lib/List/SomeUtils.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch			n/a
condition			n/a
subroutine	7	7	100.0
pod			n/a
total	25	25	100.0

package List::SomeUtils;

use 5.006;
use strict;
use warnings;

our $VERSION = '0.53';

use Exporter qw( import );

use Module::Implementation;

my @subs = qw(
    any all none notall
    true false
    firstidx lastidx
    insert_after insert_after_string
    apply indexes
    after after_incl before before_incl
    firstval lastval
    each_array each_arrayref
    pairwise natatime
    mesh uniq
    minmax part
    bsearch
    sort_by nsort_by
    one any_u all_u none_u notall_u one_u
    firstres onlyidx onlyval onlyres lastres
    singleton bsearchidx
);

my %aliases = (
    bsearch_index => 'bsearchidx',
    distinct      => 'uniq',
    first_index   => 'firstidx',
    first_result  => 'firstres',
    first_value   => 'firstval',
    last_index    => 'lastidx',
    last_result   => 'lastres',
    last_value    => 'lastval',
    only_index    => 'onlyidx',
    only_result   => 'onlyres',
    only_value    => 'onlyval',
    zip           => 'mesh',
);

our @EXPORT_OK = ( @subs, keys %aliases );
our %EXPORT_TAGS = ( all => \@EXPORT_OK );

{
    my $loader = Module::Implementation::build_loader_sub(
        implementations => [ 'XS', 'PP' ],
        symbols         => \@subs,
    );

    $loader->();
}

for my $alias ( keys %aliases ) {
    ## no critic (TestingAndDebugging::ProhibitNoStrict)
    no strict 'refs';
    *{$alias} = __PACKAGE__->can( $aliases{$alias} );
}

## no critic (Subroutines::ProhibitUnusedPrivateSubroutines)
sub _XScompiled {
    return Module::Implementation::implementation_for(__PACKAGE__) eq 'XS';
}

1;

# ABSTRACT: Provide the stuff missing in List::Util

__END__