| line |
true |
false |
branch |
|
30
|
8 |
0 |
_exclude_proper_libs() ? : |
|
62
|
0 |
0 |
if $val->{'name'} eq 'prereq_matches_use' |
|
63
|
0 |
0 |
if $val->{'name'} eq 'build_prereq_matches_use' |
|
76
|
10 |
275 |
if $env->{'include'}{$ind->{'name'}} |
|
77
|
18 |
257 |
if $env->{'exclude'}{$ind->{'name'}} |
|
78
|
33 |
224 |
if ($ind->{'is_experimental'}) { } |
|
|
72 |
152 |
elsif ($ind->{'is_extra'}) { } |
|
90
|
0 |
176 |
if defined 'Module::CoreList'->removed_from($module) |
|
92
|
60 |
116 |
unless defined $fr |
|
93
|
71 |
45 |
if 'version'->parse($minperlver) >= 'version'->parse($fr) |
|
104
|
2 |
44 |
if (not $ok) |
|
106
|
0 |
2 |
ref $more ? : |
|
|
2 |
0 |
if defined $more |
|
116
|
0 |
0 |
if version::is_lax($key) |
|
118
|
0 |
0 |
if scalar grep({$key eq $_;} @$packages_not_indexed) != 0 |
|
119
|
0 |
0 |
if _is_core($key, $minperlver) |
|
120
|
0 |
0 |
if $key =~ /[\$\@%*&]/ |
|
122
|
0 |
0 |
if ($@ or not $result->distribution) |
|
127
|
0 |
0 |
if $val->{'in_code'} and $val->{'in_code'} != ($val->{'evals_in_code'} || 0) and not exists $prereq->{$dist} |
|
128
|
0 |
0 |
if $val->{'in_tests'} and $val->{'in_tests'} != ($val->{'evals_in_tests'} || 0) and not exists $build_prereq->{$dist} |
|
144
|
4 |
116 |
if version::is_lax($key) |
|
146
|
0 |
116 |
if scalar grep({$key eq $_;} @$packages_not_indexed) != 0 |
|
147
|
52 |
64 |
if _is_core($key, $minperlver) |
|
148
|
0 |
64 |
if $key =~ /[\$\@%*&]/ |
|
150
|
0 |
64 |
if ($@ or not $result->distribution) |
|
155
|
29 |
35 |
if ($uses_keys{$uses_keys} ne 'build') { } |
|
156
|
0 |
29 |
unless exists $prereq->{$dist} |
|
158
|
14 |
21 |
unless exists $build_prereq->{$dist} |
|
171
|
2 |
2 |
unless _check_ind($env, {'name', 'prereq_matches_use', 'is_extra', 1}) or _check_ind($env, {'name', 'build_prereq_matches_use', 'is_experimental', 1}) |
|
175
|
1 |
3 |
if (exists $env->{'minperlver'}) { } |
|
180
|
3 |
6 |
if ($val->{'requires'} eq 'perl') |
|
192
|
19 |
41 |
if _is_core($val->{'requires'}, $minperlver) |
|
197
|
0 |
41 |
if ($@ or not $result->distribution) { } |
|
203
|
0 |
41 |
if ($retry == $env->{'retry'}) |
|
207
|
29 |
12 |
if $val->{'is_prereq'} or $val->{'is_optional_prereq'} |
|
208
|
8 |
4 |
if $val->{'is_prereq'} or $val->{'is_build_prereq'} or $val->{'is_optional_prereq'} |
|
223
|
0 |
4 |
if ($is_old) { } |
|
229
|
0 |
4 |
if (%qerror) |
|
232
|
2 |
0 |
!%qerror ? : |
|
|
2 |
2 |
if _check_ind($env, {'name', 'prereq_matches_use', 'is_extra', 1}) |
|
235
|
2 |
0 |
!%qerror ? : |
|
|
2 |
2 |
if _check_ind($env, {'name', 'build_prereq_matches_use', 'is_experimental', 1}) |
|
251
|
0 |
12 |
unless defined $meta_yml |
|
253
|
0 |
12 |
unless defined $no_index |
|
257
|
0 |
12 |
unless defined $uses |
|
259
|
8 |
4 |
unless ($is_old) |
|
271
|
2 |
10 |
if (defined $no_index->{'file'}) |
|
275
|
6 |
6 |
if (defined $no_index->{'directory'}) |
|
277
|
10 |
10 |
unless $File::Find::name =~ /\.pm$/ |
|
283
|
6 |
0 |
if (-d $no_meta_directory) |
|
296
|
8 |
4 |
unless exists $uses->{$namespace} |
|
302
|
2 |
10 |
if (defined $no_index->{'package'}) |
|
304
|
0 |
2 |
unless exists $uses->{$package} |
|
310
|
2 |
10 |
if (defined $no_index->{'namespace'}) |
|
313
|
2 |
4 |
unless $use =~ /^\Q$namespace\E(?:::|$)/ |
|
329
|
0 |
87 |
if $ind->{'needs_db'} |
|
330
|
63 |
24 |
unless _check_ind($env, $ind) |
|
335
|
3 |
0 |
if _check_ind($env, {'name', 'prereq_matches_use', 'is_extra', 1}) |
|
336
|
1 |
2 |
if _check_ind($env, {'name', 'build_prereq_matches_use', 'is_experimental', 1}) |
|
346
|
2 |
4 |
unless ($env->{'no_plan'}) |
|
352
|
0 |
174 |
if $ind->{'needs_db'} |
|
353
|
132 |
42 |
unless _check_ind($env, $ind) |
|
375
|
5 |
19 |
if ($arg eq ':no_plan') { } |
|
|
1 |
18 |
elsif ($arg eq ':minperlver') { } |
|
|
0 |
18 |
elsif ($arg eq ':retry') { } |
|
|
11 |
7 |
elsif ($arg =~ /^!:/) { } |
|
|
0 |
7 |
elsif ($arg =~ /^:/) { } |
|
|
1 |
6 |
elsif ($arg =~ /^!/) { } |
|
382
|
0 |
11 |
if $ind_seen |
|
384
|
0 |
11 |
if ($arg eq 'all') { } |
|
|
0 |
11 |
elsif ($arg eq 'none') { } |
|
|
11 |
0 |
elsif ($class{$arg}) { } |
|
394
|
0 |
0 |
if $ind_seen |
|
396
|
0 |
0 |
if ($arg eq 'all') { } |
|
|
0 |
0 |
elsif ($arg eq 'none') { } |
|
|
0 |
0 |
elsif ($class{$arg}) { } |