File Coverage

blib/lib/Plient/Util.pm

Criterion	Covered	Total	%
statement	30	35	85.7
branch	2	6	33.3
condition	0	3	0.0
subroutine	8	8	100.0
pod	0	1	0.0
total	40	53	75.4

package Plient::Util;

use warnings;
use strict;
use Carp;
use Config;

use File::Spec::Functions;
use base 'Exporter';
our @EXPORT = 'which';

use constant WIN32 => $^O eq 'MSWin32';
my $bin_quote = WIN32 ? q{"} : q{'};
my $bin_ext = $Config{_exe};
my %cache;
sub which {
    my $name = shift;
    return $cache{$name} if $cache{$name};

    my $path;

  LINE:
    for my $dir ( path() ) {
        my $p = catfile( $dir, $name );

        # XXX  any other names need to try?
        my @try = grep { -x } ( $p, $p . $bin_ext );
        for my $try (@try) {
            $path = $try;
            last LINE;
        }
    }

    return unless $path;
    if ( $path =~ /\s/ && $path !~ /^$bin_quote/ ) {
        $path = $bin_quote . $path . $bin_quote;
    }

    return $cache{$name} = $path;
}

1;

__END__