view release on metacpan or  search on metacpan

URPM/Resolve.pm  view on Meta::CPAN

=head1 SYNOPSIS

=head1 DESCRIPTION

=over

=cut 


#- a few functions from MDK::Common copied here:
sub any(&@) {
    my $f = shift;
    $f->($_) and return 1 foreach @_;
    0;
}
sub uniq {
    my (@l) = @_;
    my %l;
    $l{$_} = 1 foreach @l;
    grep { delete $l{$_} } @l;
}
sub find(&@) {
    my $f = shift;
    $f->($_) and return $_ foreach @_;
    undef;
}

=back

=head2 The property functions

The property2name* functions parse things like "mageia-release[>= 1]"