view release on metacpan or  search on metacpan

lib/Copy/From/Git.pm  view on Meta::CPAN

12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
        my $args = {
                server => 'guthub.com',
                path   => undef, 
                repo   => undef,
                branch => 'master',
                subdir => '.',
                user   => getlogin(),
                @_,
        };
 
        return bless $args => $class;
}
 
sub clone {
        my ($self, $target) = @_;
 
        $target = '/tmp/testing/' unless $target;
 
        unless( -d $target ){
                my $cmd;
                if( $self->{http} ){