File Coverage

blib/lib/CPAN/Packager/ListUtil.pm

Criterion	Covered	Total	%
statement	11	24	45.8
branch	3	14	21.4
condition			n/a
subroutine	3	6	50.0
pod	0	4	0.0
total	17	48	35.4

package CPAN::Packager::ListUtil;
use strict;
require Exporter;
use vars qw($VERSION @ISA @EXPORT_OK %EXPORT_TAGS);
@ISA = qw(Exporter);

%EXPORT_TAGS = ( all => [qw(any all none uniq)], );

@EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );

sub any (&@) { ## no critic
    my $f = shift;
    return if !@_;
    for (@_) {
        return 1 if $f->();
    }
    return 0;
}

sub all (&@) { ## no critic
    my $f = shift;
    return if !@_;
    for (@_) {
        return 0 if !$f->();
    }
    return 1;
}

sub none (&@) { ## no critic
    my $f = shift;
    return if !@_;
    for (@_) {
        return 0 if $f->();
    }
    return 1;
}

sub uniq (@) { ## no critic
    my %h;
    map { $h{$_}++ == 0 ? $_ : () } @_;
}

1;
__END__