| line |
true |
false |
branch |
|
34
|
9949 |
211461 |
$i == 1 ? :
|
|
|
0 |
221410 |
!($ibl || $1) ? :
|
|
96
|
5020 |
40 |
unless $cd->{'args'}{'no_modules'}
|
|
109
|
3152 |
1908 |
unless $cd->{'args'}{'return_type'} eq "bool_valid"
|
|
113
|
0 |
1908 |
if (Data::Cmp::cmp_data($nschema, ["int", {"req", 1}, {}]) == 0)
|
|
155
|
0 |
14100 |
if (exists $extra_keys->{'core'})
|
|
159
|
0 |
14100 |
if (exists $extra_keys->{'pp'})
|
|
163
|
7653 |
6447 |
if ($extra_keys->{'phase'} eq "runtime")
|
|
164
|
0 |
7653 |
if ($cd->{'args'}{'no_modules'})
|
|
168
|
0 |
7653 |
if ($cd->{'args'}{'whitelist_modules'} and grep {$_ eq $name;} @{$$cd{"args"}{"whitelist_modules"};})
|
|
172
|
80 |
7573 |
if ($cd->{'args'}{'pp'})
|
|
173
|
0 |
80 |
if (not $known_modules{$name}) { }
|
|
|
0 |
80 |
elsif (not $known_modules{$name}{'pp'}) { }
|
|
180
|
40 |
7613 |
if ($cd->{'args'}{'core'})
|
|
181
|
0 |
40 |
if (not $known_modules{$name}) { }
|
|
|
0 |
40 |
elsif (not $known_modules{$name}{'core'}) { }
|
|
188
|
80 |
7573 |
if ($cd->{'args'}{'core_or_pp'})
|
|
189
|
0 |
80 |
if (not $known_modules{$name}) { }
|
|
|
0 |
80 |
elsif (not $known_modules{$name}{'pp'} || $known_modules{$name}{'core'}) { }
|
|
202
|
0 |
17 |
$import_terms && @$import_terms ? :
|
|
207
|
30 |
39 |
unless $mod->{'phase'} eq "runtime"
|
|
209
|
5 |
34 |
if $mod->{'use_statement'} and $mod->{'use_statement'} eq $use_statement
|
|
225
|
5020 |
0 |
$import_terms && @$import_terms ? :
|
|
230
|
0 |
330 |
unless $mod->{'phase'} eq "runtime"
|
|
232
|
330 |
0 |
if $mod->{'use_statement'} and $mod->{'use_statement'} eq $use_statement
|
|
248
|
80 |
1688 |
if ($cd->{'args'}{'pp'} or $cd->{'args'}{'core_or_pp'} or not eval {
|
|
|
0 |
1688 |
elsif ($cd->{'args'}{'core'}) { }
|
|
390
|
1473 |
9470 |
if ($vt eq 'undef') { }
|
|
430
|
1226 |
0 |
if ($dump_module eq 'Data::Dumper') { }
|
|
|
0 |
0 |
elsif ($dump_module eq 'Data::Dmp') { }
|
|
435
|
0 |
0 |
if $@
|
|
442
|
4663 |
2522 |
if ($mod_record->{'use_statement'}) { }
|
|
461
|
23455 |
0 |
if (@_) { }
|
|
491
|
6 |
4718 |
if ($aref) { }
|
|
508
|
2 |
220 |
if (ref $str eq 'Regexp') { }
|
|
512
|
3 |
217 |
if $@
|
|
527
|
0 |
0 |
unless $cd->{'args'}{'return_type'} =~ /\A(bool|str|hash)_/
|
|
534
|
0 |
0 |
if defined &{$subname;}
|
|
546
|
0 |
0 |
if $@
|