| line |
true |
false |
branch |
|
33
|
0 |
0 |
$outfile ? : |
|
39
|
0 |
0 |
unless my $base = $option{'base'} || $ENV{'PERL_CPAN_MIRROR_TINY_BASE'} |
|
41
|
0 |
0 |
unless -d $base |
|
57
|
0 |
0 |
unless $self->{$cmd} = File::Which::which($cmd) |
|
73
|
0 |
0 |
unless @_ |
|
89
|
0 |
0 |
unless -d $dir |
|
93
|
0 |
0 |
-f $dest ? : |
|
104
|
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?:/) { } |
|
126
|
0 |
0 |
if $version |
|
128
|
0 |
0 |
unless $res->{'success'} |
|
130
|
0 |
0 |
if ($@) { } |
|
139
|
0 |
0 |
if (-f $arg) { } |
|
|
0 |
0 |
elsif (-d $arg) { } |
|
150
|
0 |
0 |
unless -f $file |
|
151
|
0 |
0 |
unless $file =~ /(?:\.tgz|\.tar\.gz|\.tar\.bz2|\.zip)$/ |
|
161
|
0 |
0 |
unless -f $metafile |
|
166
|
0 |
0 |
if -d $distvname |
|
167
|
0 |
0 |
unless File::Copy::Recursive::dircopy($dir, $distvname) |
|
169
|
0 |
0 |
unless $exit == 0 |
|
176
|
0 |
0 |
unless ($url =~ /(?:\.tgz|\.tar\.gz|\.tar\.bz2|\.zip)$/) |
|
183
|
0 |
0 |
if ($res->{'success'}) { } |
|
185
|
0 |
0 |
unless ($author) |
|
186
|
0 |
0 |
if ($url =~ m[/authors/id/./../([^/]+)/]) { } |
|
203
|
0 |
0 |
if ($package =~ s/@(.+)$//) |
|
207
|
0 |
0 |
if $err |
|
215
|
0 |
0 |
if ($url =~ /(.*)\@(.*)$/) |
|
219
|
0 |
0 |
if ($exit == 0) |
|
227
|
0 |
0 |
unless $exit == 0 |
|
228
|
0 |
0 |
if ($ref) |
|
230
|
0 |
0 |
unless $exit == 0 |
|
233
|
0 |
0 |
unless -f $metafile |
|
242
|
0 |
0 |
if $exit != 0 |
|
245
|
0 |
0 |
if ($exit == 0 and -f "$distvname.tar.gz") { } |
|
255
|
0 |
0 |
unless -f $path |
|
257
|
0 |
0 |
unless -d $cache_dir |
|
260
|
0 |
0 |
unless open my $fh, '<', $path |
|
263
|
0 |
0 |
if (-f $cache_file) |
|
264
|
0 |
0 |
unless open my $fh, '<', $cache_file |
|
266
|
0 |
0 |
if (($cache->{'version'} || 0) == $CACHE_VERSION) { } |
|
273
|
0 |
0 |
if ($result) |
|
274
|
0 |
0 |
unless open my $fh, '>', $cache_file |
|
291
|
0 |
0 |
unless my $dir = $self->extract($path) |
|
293
|
0 |
0 |
unless $parser->parse($dir) |
|
299
|
0 |
0 |
$option{'compress'} ? : |
|
305
|
0 |
0 |
unless -d $base |
|
309
|
0 |
0 |
unless -f $_ |
|
310
|
0 |
0 |
unless /(?:\.tgz|\.tar\.gz|\.tar\.bz2|\.zip)$/ |
|
323
|
0 |
0 |
if ($option{'show_progress'}) |
|
335
|
0 |
0 |
unless defined $version |
|
345
|
0 |
0 |
unless -d $dir |
|
346
|
0 |
0 |
unless open my $fh, '>', "$file.tmp" |
|
350
|
0 |
0 |
if ($option{'compress'}) { } |
|
353
|
0 |
0 |
if ($exit == 0) { } |
|
354
|
0 |
0 |
unless rename "$file.gz.tmp", "$file.gz" |
|
363
|
0 |
0 |
unless rename "$file.tmp", $file |
|
376
|
0 |
0 |
unless exists $info->{$module}{'version'} |
|
378
|
0 |
0 |
unless ($packages->{$module}) |
|
384
|
0 |
0 |
if ('Parse::PMFile'->_vgt($new_version, $cur_version)) { } |
|
|
0 |
0 |
elsif ('Parse::PMFile'->_vgt($cur_version, $new_version)) { } |
|
392
|
0 |
0 |
if ($new_version eq 'undef' or $new_version == 0 or 'Parse::PMFile'->_vcmp($new_version, $cur_version) == 0) |
|
396
|
0 |
0 |
if ($mtime >= $packages->{$module}[2]) |
|
401
|
0 |
0 |
if ($ok) |