| line |
true |
false |
branch |
|
22
|
0 |
16 |
@_ == 1 ? :
|
|
23
|
0 |
16 |
unless (exists $args{'directory'})
|
|
41
|
0 |
16 |
if ($source =~ /(?:^git(?:\+\w+)?:|\.git(?:\@.+)?$)/) { }
|
|
|
3 |
13 |
elsif ($source =~ m[\Ahttps?://]) { }
|
|
|
8 |
5 |
elsif (-f $source) { }
|
|
|
5 |
0 |
elsif ($source =~ /^[\w_][\w0-9:_]+$/) { }
|
|
112
|
1 |
7 |
if ref $self->{'author'} eq 'CODE'
|
|
116
|
0 |
8 |
unless copy($file, $tarpath)
|
|
129
|
7 |
1 |
if (ref $self->{'author'} ne 'CODE')
|
|
133
|
0 |
7 |
unless ($response->{'success'})
|
|
143
|
0 |
1 |
unless ($response->{'success'})
|
|
150
|
0 |
1 |
unless copy($tmpfile, $tarpath)
|
|
169
|
0 |
0 |
if ($branch)
|
|
175
|
0 |
0 |
if (ref $self->{'author'} eq 'CODE')
|
|
182
|
0 |
0 |
unless (-f $metafname)
|
|
191
|
0 |
0 |
unless rename [glob('*')]->[0], "$name-$version"
|
|
205
|
0 |
0 |
if $author
|
|
211
|
0 |
0 |
if -f $tarpath
|
|
212
|
0 |
0 |
unless rename $tmp_tarpath, $tarpath
|
|
227
|
0 |
0 |
if $top and $top eq '.git'
|
|
228
|
0 |
0 |
unless -f $_
|
|
241
|
0 |
0 |
unless system(@_) == 0
|