/usr/local/CPAN/CPAN-Packager/CPAN/Packager/ListUtil.pm

• package CPAN::Packager::ListUtil
  • any
  • all
  • none
  • uniq
• __END__
• EOF

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__