view release on metacpan or  search on metacpan

lib/App/whichdll.pm  view on Meta::CPAN

  if(@alien)
  {
    push @extra_args, alien => \@alien;
  }

  foreach my $name (@ARGV)
  {
    my @result;
    if($opts{a} || $name eq '*')
    {
      @result = find_lib( lib => '*', verify => sub { ($name eq '*') || ($_[0] eq $name) }, @extra_args);
    }
    else
    {
      my $result = find_lib( lib => $name, @extra_args );
      push @result, $result if defined $result;
    }

    unless($opts{s})
    {
      foreach my $path (map { path($_) } @result)