view release on metacpan or  search on metacpan

lib/Banal/Role/Fallback/Tiny.pm  view on Meta::CPAN

    no warnings qw(uninitialized);
    my  @greps   = tidy_arrayify( $opt{grep}, $opt{greps});
    push @greps, sub {; my @v=($_); !intersect(@blankers, @v) } if (@blankers);

    foreach my $f ( @greps ) {
        my  $rt = reftype($f) // '';
        @res =  grep {
                  my $gr = $_;
                  $rt eq 'CODE'   and   $gr  = $f->($_);
                  $rt eq 'REGEXP' and   $gr  = m/$f/;
                  !$rt            and   $gr  = looks_like_number($f) ? ($_ == $f) : ($_ eq "$f");
                  $gr
                }@res;
    }
    @res  = uniq(@res) unless $opt{no_uniq} && !$opt{uniq};
    @res  = sort @res  if $opt{sort};
  }

  # say STDERR "  Keys : " . np @keys if grep { m/install/ } @keys;
  # say STDERR "  Got  : " . np @res  if $debug;