File Coverage

lib/Git/Class/Role/Clone.pm

Criterion	Covered	Total	%
statement	9	18	50.0
branch	0	6	0.0
condition			n/a
subroutine	3	4	75.0
pod	1	1	100.0
total	13	29	44.8

package Git::Class::Role::Clone;

use Moo::Role; with 'Git::Class::Role::Execute';
requires 'git';

use Git::Class::Worktree;
use URI::Escape;

sub clone {
  my $self = shift;

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

  my ($out) = $self->git( clone => $options, @args );
  Carp::croak $self->_error if $self->_error;

  my $dir = $args[-1];
  if ($dir =~ m{([^/]+)/?\.git/?$}i) {
    $dir = uri_unescape($1);
  }
  $self->_error("work directory is not found") unless -d $dir;

  Git::Class::Worktree->new( path => $dir, cmd => $self );
}

1;

__END__