| 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 |
230 |
if $$env{'include'}{$$ind{'name'}} |
|
77
|
18 |
212 |
if $$env{'exclude'}{$$ind{'name'}} |
|
78
|
24 |
188 |
if ($$ind{'is_experimental'}) { } |
|
|
63 |
125 |
elsif ($$ind{'is_extra'}) { } |
|
90
|
0 |
156 |
if defined 'Module::CoreList'->removed_from($module) |
|
92
|
52 |
104 |
unless defined $fr |
|
93
|
65 |
39 |
if 'version'->parse($minperlver) >= 'version'->parse($fr) |
|
104
|
2 |
37 |
if (not $ok) |
|
106
|
0 |
2 |
ref $more ? : |
|
|
2 |
0 |
if defined $more |
|
116
|
0 |
108 |
if version::is_lax($key) |
|
118
|
0 |
108 |
if scalar grep({$key eq $_;} @$packages_not_indexed) != 0 |
|
119
|
49 |
59 |
if _is_core($key, $minperlver) |
|
120
|
0 |
59 |
if $key =~ /[\$\@%*&]/ |
|
122
|
0 |
59 |
if ($@ or not exists $$result{'distribution'}) |
|
127
|
0 |
29 |
if $$val{'in_code'} and $$val{'in_code'} != ($$val{'evals_in_code'} || 0) and not exists $$prereq{$dist} |
|
128
|
14 |
25 |
if $$val{'in_tests'} and $$val{'in_tests'} != ($$val{'evals_in_tests'} || 0) and not exists $$build_prereq{$dist} |
|
144
|
0 |
0 |
if version::is_lax($key) |
|
146
|
0 |
0 |
if scalar grep({$key eq $_;} @$packages_not_indexed) != 0 |
|
147
|
0 |
0 |
if _is_core($key, $minperlver) |
|
148
|
0 |
0 |
if $key =~ /[\$\@%*&]/ |
|
150
|
0 |
0 |
if ($@ or not exists $$result{'distribution'}) |
|
155
|
0 |
0 |
if ($uses_keys{$uses_keys} ne 'build') { } |
|
156
|
0 |
0 |
unless exists $$prereq{$dist} |
|
158
|
0 |
0 |
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 |
24 |
if ($$val{'requires'} eq 'perl') |
|
192
|
16 |
32 |
if _is_core($$val{'requires'}, $minperlver) |
|
197
|
0 |
32 |
if ($@ or not exists $$result{'distribution'}) { } |
|
203
|
0 |
32 |
if ($retry == $$env{'retry'}) |
|
207
|
28 |
4 |
if $$val{'is_prereq'} or $$val{'is_optional_prereq'} |
|
208
|
4 |
0 |
if $$val{'is_prereq'} or $$val{'is_build_prereq'} or $$val{'is_optional_prereq'} |
|
223
|
4 |
0 |
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
|
4 |
8 |
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$/ |
|
293
|
8 |
4 |
unless exists $$uses{$namespace} |
|
299
|
2 |
10 |
if (defined $$no_index{'package'}) |
|
301
|
0 |
2 |
unless exists $$uses{$package} |
|
307
|
2 |
10 |
if (defined $$no_index{'namespace'}) |
|
310
|
2 |
4 |
unless $use =~ /^\Q$namespace\E(?:::|$)/ |
|
326
|
0 |
72 |
if $$ind{'needs_db'} |
|
327
|
52 |
20 |
unless _check_ind($env, $ind) |
|
332
|
3 |
0 |
if _check_ind($env, {'name', 'prereq_matches_use', 'is_extra', 1}) |
|
333
|
1 |
2 |
if _check_ind($env, {'name', 'build_prereq_matches_use', 'is_experimental', 1}) |
|
343
|
2 |
4 |
unless ($$env{'no_plan'}) |
|
349
|
0 |
144 |
if $$ind{'needs_db'} |
|
350
|
109 |
35 |
unless _check_ind($env, $ind) |
|
372
|
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 =~ /^!/) { } |
|
379
|
0 |
11 |
if $ind_seen |
|
381
|
0 |
11 |
if ($arg eq 'all') { } |
|
|
0 |
11 |
elsif ($arg eq 'none') { } |
|
|
11 |
0 |
elsif ($class{$arg}) { } |
|
391
|
0 |
0 |
if $ind_seen |
|
393
|
0 |
0 |
if ($arg eq 'all') { } |
|
|
0 |
0 |
elsif ($arg eq 'none') { } |
|
|
0 |
0 |
elsif ($class{$arg}) { } |