| line |
true |
false |
branch |
|
34
|
0 |
18 |
if ($source =~ /(?:^git(?:\+\w+)?:|\.git(?:\@.+)?$)/) { }
|
|
|
3 |
15 |
elsif ($source =~ m[\Ahttps?://]) { }
|
|
|
10 |
5 |
elsif (-f $source) { }
|
|
|
5 |
0 |
elsif ($source =~ /^[\w_][\w0-9:_]+$/) { }
|
|
105
|
1 |
9 |
if ref $self->{'author'} eq "CODE"
|
|
109
|
0 |
10 |
unless copy($file, $tarpath)
|
|
122
|
7 |
1 |
if (ref $self->{'author'} ne "CODE")
|
|
126
|
0 |
7 |
unless ($response->{'success'})
|
|
136
|
0 |
1 |
unless ($response->{'success'})
|
|
143
|
0 |
1 |
unless copy($tmpfile, $tarpath)
|
|
162
|
0 |
0 |
if ($branch)
|
|
168
|
0 |
0 |
if (ref $self->{'author'} eq "CODE")
|
|
175
|
0 |
0 |
unless (-f $metafname)
|
|
184
|
0 |
0 |
unless rename [glob("*")]->[0], "$name-$version"
|
|
198
|
0 |
0 |
if $author
|
|
204
|
0 |
0 |
if -f $tarpath
|
|
205
|
0 |
0 |
unless rename $tmp_tarpath, $tarpath
|
|
220
|
0 |
0 |
if $top and $top eq ".git"
|
|
221
|
0 |
0 |
unless -f $_
|
|
234
|
0 |
0 |
unless system(@_) == 0
|