view release on metacpan or  search on metacpan

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

use warnings;
use 5.008001;
use File::Which qw( which );
use Getopt::Std qw( getopts );   ## no critic (Community::PreferredAlternatives)

# ABSTRACT: Perl-only `which`
our $VERSION = '1.17'; # VERSION

sub main
{
  local @ARGV;
  my $prog;
  ($prog, @ARGV) = @_;

  my %opts;

  if($prog eq 'which')
  {
    getopts('avs', \%opts) || return _usage();
    return _version() if $opts{v};
    return _usage() unless @ARGV;