File Coverage

blib/lib/App/multiwhich.pm

Criterion	Covered	Total	%
statement	27	50	54.0
branch	0	8	0.0
condition			n/a
subroutine	9	11	81.8
pod	3	3	100.0
total	39	72	54.1

package App::multiwhich;

use utf8;
use 5.006;
use strict;
use warnings FATAL => 'all';

our $VERSION = '0.001';
$VERSION = eval $VERSION;

use namespace::sweep;
use File::Spec::Functions qw( canonpath catfile path );
use File::Basename qw( fileparse );
use Perl::OSType qw(is_os_type);

sub new {
    my $class = shift;
    my $self = [ @{ $_[0] } ];
    bless $self => $class;
}

sub run {
    my $self = shift;

    @$self or $self->usage;

    my @path = path;
    my @pathext = ('');

    if (is_os_type('Windows')) {
        push @pathext, map lc,
            map /\A([.][A-Za-z0-9]{1,32})\z/,
            split /;/, $ENV{PATHEXT}
        ;
    }

    my @ret;

    LOOKFOR:
    for my $lookfor ( @$self ) {
        if ($lookfor ne fileparse $lookfor) {
            warn "Skipped '$lookfor': Argument is not a plain file name\n";
            next LOOKFOR;
        }

        my %results = ( $lookfor => [] );
        my ($results) = values %results;

        for my $dir ( @path ) {
            for my $ext ( @pathext ) {
                my $p = catfile $dir => "$lookfor$ext";
                if (-x $p) {
                    push @$results, canonpath $p;
                }
            }
        }

        push @ret, \%results;
    }
    return \@ret;
}

sub usage {
    my $self = shift;

    die "Usage: multiwhich name1 name2 name3 ... namex\n";
}

__DATA__