File Coverage

lib/Git/Class/Cmd.pm

Criterion	Covered	Total	%
statement	27	33	81.8
branch	5	10	50.0
condition	7	13	53.8
subroutine	7	7	100.0
pod	2	2	100.0
total	48	65	73.8

package Git::Class::Cmd;

use Module::Find ();
use Moo; with (Module::Find::findsubmod 'Git::Class::Role');
use MRO::Compat;
use Path::Tiny;

has no_capture => (is => 'rw');

has '_git' => (
  is        => 'rw',
#  isa       => 'Str|Undef',
  init_arg  => 'exec_path',
  builder   => '_find_git',
);

# predicate doesn't work in this case
sub is_available { shift->_git ? 1 : 0 }

sub _find_git {
  my $self = shift;

  my $file = $ENV{GIT_EXEC_PATH};

  return $file if $file && -f $file;

  require Config;
  my $path_sep = $Config::Config{path_sep} || ';';

  foreach my $path ( split /$path_sep/, ($ENV{PATH} || '') ) {
    return 'git' if path($path, 'git')->is_file
                 || path($path, 'git.cmd')->is_file
                 || path($path, 'git.exe')->is_file;
  }
  return;
}

sub git {
  my $self = shift;

  unless ($self->is_available) {
    $self->_error("git binary is not available");
    return;
  }

  my %git_options;
  while(ref $_[0] eq 'HASH') {
    my $href = shift;
    %git_options = (%git_options, %{$href});
  }

  my ($options, @args) = $self->_get_options(@_);
  my $cmd = shift @args;

  $self->_execute(
    $self->_git,
    $self->_prepare_options(\%git_options),
    ($cmd ? ($cmd) : ()),
    $self->_prepare_options($options),
    @args,
  );
}

1;

__END__