Branch Coverage

blib/lib/CPAN/Index.pm
Criterion Covered Total %
branch 61 172 35.4


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