File Coverage

blib/lib/App/Whiff.pm

Criterion	Covered	Total	%
statement	9	21	42.8
branch	0	8	0.0
condition	0	3	0.0
subroutine	3	5	60.0
pod	2	2	100.0
total	14	39	35.9

use strict;
use warnings;
package App::Whiff 0.008;
# ABSTRACT: find the first executable of a series of alternatives

use File::Which ();

#pod =head1 DESCRIPTION
#pod
#pod This module implements logic used by the F command, which takes a number
#pod of command names and returns the first one that exists and is executable.
#pod
#pod =method find_first
#pod
#pod   my $filename = App::Whiff->find_first(\@names);
#pod
#pod Given an arrayref of command names (which should I be anything other than
#pod base filename), this method either returns an absolute path to the first of the
#pod alternatives found in the path (using L) or false.
#pod
#pod =cut

sub find_first {
  my ($self, $names) = @_;

  my $file;
  for my $name (@$names) {
    return $name if $name =~ m{\A/} && -x $name;
    $file = File::Which::which($name);
    return $file if $file;
  }

  return;
}

#pod =method run
#pod
#pod This method is called by the F program to ... well, run.
#pod
#pod =cut

sub run {
  my ($self) = @_;

  die "usage: whiff \n" unless @ARGV;
  my $file = $self->find_first([ @ARGV ]);
  die "no alternative found\n" unless $file;
  print "$file\n";
}

1;

__END__