| line |
true |
false |
branch |
|
48
|
0 |
96 |
unless $_ and $_ > 0.001 |
|
55
|
1 |
95 |
unless ($CPAN::META->{'PROTOCOL'}) |
|
59
|
1 |
95 |
if ($CPAN::META->{'PROTOCOL'} < PROTOCOL()) |
|
63
|
95 |
1 |
if ($CPAN::Index::LAST_TIME + $CPAN::Config->{'index_expire'} * 86400 > $time and not $force) { } |
|
81
|
0 |
3 |
$needshort ? : |
|
86
|
0 |
3 |
if ($CPAN::DEBUG) |
|
91
|
0 |
3 |
if $CPAN::Signal |
|
94
|
0 |
1 |
if ($CPAN::DEBUG) |
|
99
|
0 |
1 |
if $CPAN::DEBUG |
|
101
|
0 |
96 |
if ($CPAN::Config->{'build_dir_reuse'}) |
|
104
|
0 |
96 |
if (CPAN::_sqlite_running()) |
|
105
|
0 |
0 |
unless $CPAN::Index::LAST_TIME |
|
115
|
0 |
0 |
unless ($CPAN::META->has_inst($CPAN::Config->{'yaml_module'} || 'YAML')) |
|
118
|
0 |
0 |
if $CPAN::Index::HAVE_REANIMATED++ |
|
121
|
0 |
0 |
unless opendir $dh, $d |
|
130
|
0 |
0 |
if /(.+)\.yml$/ |
|
131
|
0 |
0 |
if (@candidates) { } |
|
137
|
0 |
0 |
@candidates == 1 ? : |
|
141
|
0 |
0 |
if ($@) |
|
146
|
0 |
0 |
if ($c and $c->{'perl'} and $c->{'distribution'} and 'CPAN'->_perl_fingerprint($c->{'perl'})) |
|
149
|
0 |
0 |
if ($c->{'distribution'}{$k} and ref $c->{'distribution'}{$k} and UNIVERSAL::isa($c->{'distribution'}{$k}, 'CPAN::Distrostatus')) |
|
177
|
0 |
0 |
if ($do->can('tested_ok_but_not_installed')) |
|
178
|
0 |
0 |
if ($do->tested_ok_but_not_installed) { } |
|
214
|
0 |
3 |
if (-f $abs_wanted and -M $abs_wanted < $CPAN::Config->{'index_expire'} and not $force & 1) { } |
|
219
|
0 |
0 |
$CPAN::Config->{'index_expire'} == 1 ? : |
|
232
|
0 |
1 |
unless defined $index_target |
|
233
|
0 |
1 |
if CPAN::_sqlite_running() |
|
247
|
2 |
0 |
if ($userid and $fullname and $email) { } |
|
251
|
0 |
0 |
if $CPAN::DEBUG |
|
258
|
0 |
2 |
if $CPAN::Signal |
|
265
|
0 |
19 |
unless defined $dist |
|
273
|
0 |
1 |
unless defined $index_target |
|
274
|
0 |
1 |
if CPAN::_sqlite_running() |
|
278
|
0 |
1 |
if $CPAN::DEBUG |
|
285
|
0 |
1 |
if $CPAN::DEBUG |
|
291
|
1 |
8 |
if $shift =~ /^\s*$/ |
|
292
|
1 |
7 |
if $shift =~ /^Line-Count:\s+(\d+)/ |
|
293
|
1 |
7 |
if $shift =~ /^Last-Updated:\s+(.+)/ |
|
295
|
0 |
1 |
if $CPAN::DEBUG |
|
297
|
0 |
1 |
if (not defined $line_count) { } |
|
|
0 |
1 |
elsif ($line_count != scalar @lines) { } |
|
315
|
0 |
1 |
if (not defined $last_updated) { } |
|
332
|
0 |
1 |
if ($CPAN::META->has_inst('HTTP::Date')) { } |
|
340
|
1 |
0 |
$d[1] >= 0 ? : |
|
343
|
1 |
0 |
if ($age > 30) { } |
|
|
0 |
0 |
elsif ($age < -1) { } |
|
372
|
0 |
1 |
if $CPAN::DEBUG |
|
381
|
0 |
19 |
unless ($mod and defined $version and $dist) |
|
385
|
0 |
0 |
if ($errors++ >= 5) |
|
392
|
0 |
19 |
if ($mod eq 'CPAN' and not 'CPAN::Queue'->exists('Bundle::CPAN') || 'CPAN::Queue'->exists('CPAN')) { } |
|
|
1 |
18 |
elsif ($mod =~ /^Bundle::(.*)/) { } |
|
399
|
0 |
0 |
if ($version > $CPAN::VERSION) |
|
413
|
0 |
0 |
if $CPAN::Signal |
|
418
|
1 |
18 |
if ($bundle) { } |
|
438
|
19 |
0 |
if ($id->cpan_file ne $dist or $id->cpan_version ne $version) |
|
451
|
1 |
18 |
if ($CPAN::META->exists('CPAN::Distribution', $dist)) { } |
|
467
|
0 |
19 |
if ($secondtime) |
|
478
|
0 |
19 |
if $CPAN::Signal |
|
481
|
0 |
1 |
if ($secondtime) |
|
484
|
0 |
0 |
if exists $exists{$o->{'ID'}} |
|
496
|
0 |
1 |
unless defined $index_target |
|
497
|
0 |
1 |
if CPAN::_sqlite_running() |
|
510
|
0 |
1 |
if ($shift =~ /^Date:\s+(.*)/) |
|
511
|
0 |
0 |
if ($CPAN::Index::DATE_OF_03 eq $1) |
|
517
|
1 |
0 |
if $shift =~ /^\s*$/ |
|
523
|
0 |
1 |
if $CPAN::DEBUG |
|
525
|
0 |
1 |
if $@ |
|
526
|
0 |
1 |
if $CPAN::Signal |
|
530
|
0 |
1 |
if $CPAN::DEBUG |
|
540
|
0 |
3 |
if $CPAN::Signal |
|
548
|
1 |
0 |
unless $CPAN::Config->{'cache_metadata'} |
|
549
|
0 |
0 |
if CPAN::_sqlite_running() |
|
550
|
0 |
0 |
unless $CPAN::META->has_usable('Storable') |
|
562
|
0 |
0 |
if $@ |
|
568
|
1 |
0 |
unless $CPAN::Config->{'cache_metadata'} |
|
569
|
0 |
0 |
if CPAN::_sqlite_running() |
|
570
|
0 |
0 |
unless $CPAN::META->has_usable('Storable') |
|
572
|
0 |
0 |
unless -r $metadata_file and -f $metadata_file |
|
576
|
0 |
0 |
if $@ |
|
577
|
0 |
0 |
unless ($cache and UNIVERSAL::isa($cache, 'HASH')) |
|
581
|
0 |
0 |
if (exists $cache->{'PROTOCOL'}) { } |
|
582
|
0 |
0 |
if (PROTOCOL() > $cache->{'PROTOCOL'}) |
|
598
|
0 |
0 |
unless $class =~ /^CPAN::/ |
|
607
|
0 |
0 |
unless ($clcnt) |
|
611
|
0 |
0 |
if ($idcnt < 1000) |
|
621
|
0 |
0 |
if defined $CPAN::Index::DATE_OF_02 |