| line |
true |
false |
branch |
|
35
|
0 |
0 |
$outfile ? : |
|
41
|
0 |
0 |
unless my $base = $option{'base'} || $ENV{'PERL_CPAN_MIRROR_TINY_BASE'} |
|
43
|
0 |
0 |
unless -d $base |
|
59
|
0 |
0 |
unless $self->{$cmd} = File::Which::which($cmd) |
|
75
|
0 |
0 |
unless @_ |
|
91
|
0 |
0 |
unless -d $dir |
|
95
|
0 |
0 |
-f $dest ? : |
|
106
|
0 |
0 |
if ($url =~ s[^file://][] or -e $url) { } |
|
|
0 |
0 |
elsif ($url =~ /(?:^git|\.git(?:@(.+))?$)/ or &$maybe_git($url)) { } |
|
|
0 |
0 |
elsif ($url =~ /^cpan:(.+)/) { } |
|
|
0 |
0 |
elsif ($url =~ /^https?:/) { } |
|
128
|
0 |
0 |
if $version |
|
130
|
0 |
0 |
unless $res->{'success'} |
|
132
|
0 |
0 |
if ($@) { } |
|
141
|
0 |
0 |
if (-f $arg) { } |
|
|
0 |
0 |
elsif (-d $arg) { } |
|
152
|
0 |
0 |
unless -f $file |
|
153
|
0 |
0 |
unless $file =~ /(?:\.tgz|\.tar\.gz|\.tar\.bz2|\.zip)$/ |
|
163
|
0 |
0 |
unless -f $metafile |
|
168
|
0 |
0 |
if -d $distvname |
|
169
|
0 |
0 |
unless File::Copy::Recursive::dircopy($dir, $distvname) |
|
171
|
0 |
0 |
unless $exit == 0 |
|
178
|
0 |
0 |
unless ($url =~ /(?:\.tgz|\.tar\.gz|\.tar\.bz2|\.zip)$/) |
|
185
|
0 |
0 |
if ($res->{'success'}) { } |
|
187
|
0 |
0 |
unless ($author) |
|
188
|
0 |
0 |
if ($url =~ m[/authors/id/./../([^/]+)/]) { } |
|
205
|
0 |
0 |
if ($package =~ s/@(.+)$//) |
|
209
|
0 |
0 |
if $err |
|
217
|
0 |
0 |
if ($url =~ /(.*)\@(.*)$/) |
|
221
|
0 |
0 |
if ($exit == 0) |
|
229
|
0 |
0 |
unless $exit == 0 |
|
230
|
0 |
0 |
if ($ref) |
|
232
|
0 |
0 |
unless $exit == 0 |
|
235
|
0 |
0 |
unless -f $metafile |
|
244
|
0 |
0 |
if $exit != 0 |
|
247
|
0 |
0 |
if ($exit == 0 and -f "$distvname.tar.gz") { } |
|
257
|
0 |
0 |
unless -f $path |
|
259
|
0 |
0 |
unless -d $cache_dir |
|
262
|
0 |
0 |
unless open my $fh, "<", $path |
|
265
|
0 |
0 |
if (-f $cache_file) |
|
266
|
0 |
0 |
unless open my $fh, "<", $cache_file |
|
268
|
0 |
0 |
if (($cache->{'version'} || 0) == $CACHE_VERSION) { } |
|
275
|
0 |
0 |
if ($result) |
|
276
|
0 |
0 |
unless open my $fh, ">", $cache_file |
|
293
|
0 |
0 |
unless my $dir = $self->extract($path) |
|
295
|
0 |
0 |
unless $parser->parse($dir) |
|
301
|
0 |
0 |
$option{'compress'} ? : |
|
309
|
0 |
0 |
unless -d $base |
|
314
|
0 |
0 |
unless -f $_ |
|
315
|
0 |
0 |
unless /(?:\.tgz|\.tar\.gz|\.tar\.bz2|\.zip)$/ |
|
329
|
0 |
0 |
if ($option{'show_progress'}) |
|
341
|
0 |
0 |
unless defined $version |
|
351
|
0 |
0 |
unless -d $dir |
|
352
|
0 |
0 |
unless open my $fh, ">", "$file.tmp" |
|
356
|
0 |
0 |
if ($option{'compress'}) { } |
|
359
|
0 |
0 |
if ($exit == 0) { } |
|
360
|
0 |
0 |
unless rename "$file.gz.tmp", "$file.gz" |
|
369
|
0 |
0 |
unless rename "$file.tmp", $file |
|
382
|
0 |
0 |
unless exists $info->{$module}{'version'} |
|
384
|
0 |
0 |
unless ($packages->{$module}) |
|
390
|
0 |
0 |
if ('Parse::PMFile'->_vgt($new_version, $cur_version)) { } |
|
|
0 |
0 |
elsif ('Parse::PMFile'->_vgt($cur_version, $new_version)) { } |
|
398
|
0 |
0 |
if ($new_version eq "undef" or $new_version == 0 or "Parse::PMFile"->_vcmp($new_version, $cur_version) == 0) |
|
402
|
0 |
0 |
if ($mtime >= $packages->{$module}[2]) |
|
407
|
0 |
0 |
if ($ok) |