| line |
true |
false |
branch |
|
118
|
0 |
6 |
if (my $opt_match = $options->{'opt_match'}) |
|
119
|
0 |
0 |
unless ($module =~ /$opt_match/o) |
|
125
|
6 |
0 |
unless $VERBOSE |
|
127
|
6 |
0 |
if $mi |
|
139
|
6 |
0 |
unless $VERBOSE |
|
143
|
0 |
6 |
unless my $ccdr = $installed_mod_info{$mod}{'candidate_cpan_dist_releases'} |
|
151
|
0 |
0 |
if (@$best > 1 and $installed_meta->{'perllocalpod'}) |
|
159
|
0 |
0 |
$v ? : |
|
|
0 |
0 |
if $DEBUG |
|
163
|
0 |
0 |
if (@in_perllocal and @in_perllocal < @$best) |
|
169
|
0 |
6 |
if (@$best > 1 or $note) |
|
174
|
0 |
0 |
if $note or $VERBOSE or $mi->{'version'} and $best->[0]{'fraction_installed'} < 0.3 |
|
179
|
0 |
0 |
unless $mi->{'version'} |
|
213
|
0 |
0 |
unless $Dist::Surveyor::a->{'dist'}{'version_obj'} <=> $Dist::Surveyor::b->{'dist'}{'version_obj'} |
|
217
|
0 |
0 |
unless $Dist::Surveyor::a->{'dist'}{'fraction_installed'} <=> $Dist::Surveyor::b->{'dist'}{'fraction_installed'} |
|
224
|
3 |
0 |
if ($dist_by_version[-1] == $dist_by_fraction[-1]) { } |
|
|
0 |
0 |
elsif ($dist_by_fraction[-1]{'dist'}{'fraction_installed'} == 100) { } |
|
241
|
0 |
3 |
if (@remnant_dists or $DEBUG) |
|
242
|
0 |
0 |
unless our $dist_with_remnants_warning++ |
|
252
|
0 |
0 |
@$modules > 4 ? : |
|
258
|
0 |
3 |
$options->{'opt_remnants'} ? : |
|
263
|
0 |
3 |
unless $release_data |
|
311
|
0 |
0 |
if not $_[0] =~ /already declared with version/ |
|
319
|
0 |
6 |
if (my $cv = $Module::CoreList::version{$options->{'opt_perlver'}}{$module}) |
|
321
|
0 |
0 |
if ('version'->parse($cv) >= 'version'->parse($mod_version)) |
|
336
|
0 |
6 |
if $module =~ /^Moose::Meta::Method::Accessor::Native::/ |
|
344
|
0 |
6 |
unless (%$ccdr) |
|
346
|
0 |
0 |
if (%$ccdr) { } |
|
|
0 |
0 |
elsif ($ccdr = get_candidate_cpan_dist_releases_fallback($module, $mod_version) and %$ccdr) { } |
|
349
|
0 |
0 |
if $mod_version or $VERBOSE |
|
354
|
0 |
0 |
if $mod_version or $VERBOSE |
|
367
|
0 |
0 |
if $mi->{'version'} or $VERBOSE |
|
374
|
6 |
0 |
if %$ccdr |
|
376
|
0 |
6 |
if ($@) |
|
429
|
48 |
0 |
$mods_in_rel_count ? : |
|
430
|
0 |
48 |
if $VERBOSE or not $mods_in_rel_count |
|
478
|
0 |
1 |
if $dir eq '.' |
|
482
|
0 |
1 |
unless -d $dir |
|
497
|
0 |
1 |
unless eval {
do {
File::Find::find({%find_args, 'postprocess', sub {
$dir_done{$File::Find::dir}++;
}
, 'wanted', sub {
unless (/\.pm$/i) {
$File::Find::prune = 1 if -d $File::Find::name and /^\.\w/;
$File::Find::prune = 1 if $dir_done{$File::Find::name};
push @{$meta{'perllocalpod'};}, $File::Find::name if $_ eq 'perllocal.pod';
return;
} ;
my $mod = $File::Find::name;
'???';
$mod = substr($mod, length($dir) + 1, -3);
$mod = join('::', $file_spec->splitdir($mod));
return if $seen_mod{$mod};
$seen_mod{$mod} = $File::Find::name;
}
}, $dir);
1
}
} |
|
505
|
6 |
6 |
unless (/\.pm$/i) |
|
507
|
0 |
6 |
if -d $File::Find::name and /^\.\w/ |
|
511
|
0 |
6 |
if $dir_done{$File::Find::name} |
|
513
|
0 |
6 |
if $_ eq 'perllocal.pod' |
|
526
|
0 |
6 |
if $seen_mod{$mod} |
|
560
|
0 |
0 |
unless ($perllocal_distro_mod_version) |
|
561
|
0 |
0 |
if ref $perllocalpod eq 'ARRAY' and @$perllocalpod > 1 |
|
566
|
0 |
0 |
if (my $plp = shift @$perllocalpod) { } |
|
568
|
0 |
0 |
if (eval {
do {
require ExtUtils::Perllocal::Parser
}
}) { } |
|
592
|
4 |
8 |
if ($last ne $crnt) |