| line |
true |
false |
branch |
|
58
|
0 |
0 |
unless copy($from, $to) |
|
66
|
0 |
0 |
exists $opts{'undefs'} ? : |
|
68
|
0 |
0 |
unless ($ua) |
|
70
|
0 |
0 |
if $opts{'env_proxy'} |
|
73
|
0 |
0 |
unless -d $mycpan |
|
103
|
0 |
0 |
if ($lazy and -f $details) |
|
112
|
0 |
0 |
if $fallback |
|
117
|
0 |
0 |
if (-f $details) |
|
122
|
0 |
0 |
if (-f $newlist) |
|
124
|
0 |
0 |
unless rename $newlist, $details |
|
144
|
0 |
28 |
if (ref $this_version) |
|
146
|
0 |
0 |
if ($@) |
|
153
|
0 |
28 |
exists $CPAN::Site::Index::findpkgs->{$package} ? : |
|
154
|
7 |
21 |
if $this_version |
|
156
|
0 |
28 |
if defined $registered_version and $registered_version > $this_version |
|
177
|
0 |
22 |
unless defined $subdir |
|
180
|
21 |
1 |
unless not @rest |
|
185
|
0 |
3 |
unless -f $fn and $fn =~ /$tar_gz/xi || $fn =~ /$zip/ |
|
190
|
0 |
3 |
if (defined $index_age and -M $fn > $index_age) |
|
192
|
0 |
0 |
unless (exists $CPAN::Site::Index::olddists->{$dist}) |
|
208
|
3 |
0 |
if $fn =~ /$tar_gz/xi |
|
211
|
0 |
0 |
if $fn =~ /$zip/ |
|
219
|
0 |
3 |
unless $arch->read($fn, 1) |
|
225
|
24 |
20 |
unless $file->is_file and $fn =~ /\.pm$/i and &package_on_usual_location($fn) |
|
235
|
0 |
0 |
unless $arch->read($fn) == 0 |
|
241
|
0 |
0 |
unless $member->isTextFile and &package_on_usual_location($fn) |
|
244
|
0 |
0 |
unless $status == 0 |
|
260
|
0 |
4623 |
if /^__(?:END|DATA)__$/ |
|
262
|
324 |
4299 |
if /^=(\w+)/ |
|
263
|
1235 |
3388 |
if $in_pod or /^\s*#/ |
|
268
|
28 |
3360 |
if (/^\s* package \s* ((?:\w+\:\:)*\w+) (?:\s+ (\S*))? \s* [;{]/x) |
|
271
|
0 |
28 |
if ($v) |
|
273
|
0 |
0 |
if $@ |
|
278
|
8 |
20 |
if defined $package |
|
285
|
0 |
3388 |
if (/^\s* \$ $package::VERSION \s* = \s* ["']?(\w+?)["']? \s* ;/x) |
|
289
|
7 |
3381 |
if (not $VERSION and /^ (?:use\s+version\s*;\s*)?
(?:our)? \s* \$ ((?: \w+\:\:)*) VERSION \s* \= (.*)/x) |
|
291
|
0 |
7 |
unless defined $2 |
|
297
|
7 |
0 |
if (defined $VERSION) |
|
298
|
3 |
4 |
if length $ns |
|
305
|
0 |
20 |
if ref $VERSION |
|
306
|
20 |
0 |
if defined $package |
|
318
|
0 |
0 |
if -f $globdetails and -f $globdetails and -f $modlist and -M $globdetails < $cpan_update |
|
334
|
0 |
0 |
if $response->is_success |
|
350
|
0 |
0 |
if exists $pkgs->{$pkg} |
|
360
|
0 |
0 |
unless my $fh = 'IO::Zlib'->new($filename, 'wb') |
|
365
|
0 |
0 |
$lazy ? : |
|
386
|
0 |
0 |
if not defined $version or $version eq '' |
|
390
|
0 |
0 |
if $version eq 'undef' and not $undefs |
|
403
|
0 |
0 |
unless &CPAN::Checksums::updatedir($dir) |
|
410
|
0 |
0 |
unless -f $fn |
|
413
|
0 |
0 |
unless my $fh = 'IO::Zlib'->new($fn, 'rb') |
|
426
|
0 |
0 |
unless ($dist) |
|
444
|
0 |
0 |
if (not -f $fn) { } |
|
|
0 |
0 |
elsif (-M $fn < $newer) { } |
|
457
|
0 |
0 |
if -d $dir |
|
460
|
0 |
0 |
unless mkdir $dir, 493 |
|
470
|
0 |
0 |
unless @$mods |
|
474
|
0 |
0 |
unless ($ua) |
|
476
|
0 |
0 |
if $opts{'env_proxy'} |
|
482
|
0 |
0 |
unless my $fh = 'IO::Zlib'->new($globdetails, 'rb') |
|
486
|
0 |
0 |
if $line =~ /^\s*$/ |
|
492
|
0 |
0 |
unless delete $need{$pkg} |
|
495
|
0 |
0 |
if (-f $to) |
|
504
|
0 |
0 |
unless ($response->is_success) |