| blib/lib/Dist/Surveyor.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 15 | 59 | 25.4 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 151 | 6 | 0 | 0 | @$best > 1 and $installed_meta->{'perllocalpod'} |
| 163 | 0 | 0 | 0 | @in_perllocal and @in_perllocal < @$best |
| 174 | 0 | 0 | 0 | $mi->{'version'} and $best->[0]{'fraction_installed'} < 0.3 |
| 346 | 0 | 0 | 0 | $ccdr = get_candidate_cpan_dist_releases_fallback($module, $mod_version) and %$ccdr |
| 507 | 0 | 6 | 0 | -d $File::Find::name and /^\.\w/ |
| 561 | 0 | 0 | 0 | ref $perllocalpod eq 'ARRAY' and @$perllocalpod > 1 |
| line | l | !l | condition |
|---|---|---|---|
| 184 | 3 | 3 | $best_dist{$dist->{'distribution'}}{$dist->{'release'}} ||= {'dist', $dist} |
| 315 | 5 | 1 | $mod_version ||= 0 |
| 413 | 48 | 0 | &sum(map({my $mi = $$installed_mod_info{$_->{'name'}}; $_->{'version_obj'} ||= eval { do { 'version'->parse($_->{'version'}) } }; my $hit = $mi && $mi->{'version_obj'} == $_->{'version_obj'} ? 1 : 0; $hit = 0.1 if $mi and $mi->{'size'} != $_->{'size'}; warn sprintf("%s %s %s %s: %s\n", $tag, $_->{'name'}, $_->{'version_obj'}, $_->{'size'}, $hit == 1 ? 'matches' : ($mi ? "differs ($mi->{'version_obj'}, $mi->{'size'})" : 'not installed')) if $DEBUG; $hit;} values %$mods_in_rel)) || 0 |
| 591 | 11 | 1 | our $last ||= '' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 106 | 0 | 1 | 0 | $options->{'opt_perlver'} ||= 'version'->parse($])->numify |
| 147 | 1 | 5 | 0 | $best_dist_cache{$best_dist_cache_key} ||= pick_best_cpan_dist_release($ccdr, \%installed_mod_info) |
| 169 | 0 | 0 | 6 | @$best > 1 or $note |
| 174 | 0 | 0 | 0 | $note or $VERBOSE |
| 0 | 0 | 0 | $note or $VERBOSE or $mi->{'version'} and $best->[0]{'fraction_installed'} < 0.3 | |
| 241 | 0 | 0 | 3 | @remnant_dists or $DEBUG |
| 349 | 0 | 0 | 0 | $mod_version or $VERBOSE |
| 354 | 0 | 0 | 0 | $mod_version or $VERBOSE |
| 367 | 0 | 0 | 0 | $mi->{'version'} or $VERBOSE |
| 430 | 0 | 0 | 48 | $VERBOSE or not $mods_in_rel_count |
| 557 | 0 | 0 | 0 | $distro_key_mod_names->{$distname} || $dist_mod_name |