| line |
true |
false |
branch |
|
48
|
0 |
7 |
if ($opt eq 'class') { } |
|
|
0 |
7 |
elsif ($opt eq 'cor') { } |
|
|
0 |
7 |
elsif ($opt eq 'nocor') { } |
|
|
1 |
6 |
elsif (grep {$_ eq $opt;} @$features_available) { } |
|
|
1 |
5 |
elsif (my($nofeature) = grep({'no' . $_ eq $opt;} @$features_available)) { } |
|
|
2 |
3 |
elsif (grep {$_ eq $opt;} @$functions_available, @$functions_deprecated) { } |
|
|
1 |
2 |
elsif ($opt =~ /^:?v?5?\.?(\d+)/u and $1 >= 10) { } |
|
64
|
2 |
0 |
if grep {$_ eq $opt;} @$functions_available |
|
70
|
2 |
0 |
unless $opt =~ /^no[a-z]{2}/u |
|
74
|
20 |
0 |
unless grep {$_ eq "nostrict";} @functions |
|
75
|
20 |
0 |
unless grep {$_ eq "nowarnings";} @functions |
|
77
|
1 |
19 |
if (@bundles) { } |
|
|
18 |
1 |
elsif (not grep({$_ eq 'nofeatures';} @functions) || grep({$_ eq 'nobundle';} @functions)) { } |
|
84
|
18 |
0 |
$perl_version >= 16 ? : |
|
89
|
20 |
0 |
unless (grep {$_ eq "noutf8";} @functions) |
|
95
|
20 |
0 |
unless grep {$_ eq "noc3";} @functions |
|
100
|
20 |
0 |
unless grep {$_ eq "nocarp";} @functions |
|
106
|
0 |
20 |
if grep {$_ eq "try";} @$features_available and grep({$_ eq 'notry';} @functions) || grep({$_ eq 'trytiny';} @functions) |
|
112
|
0 |
0 |
if $perl_version < 36 and not grep({$_ eq "notry";} @functions) and not grep({$_ eq "trytiny";} @functions) |
|
114
|
0 |
20 |
if grep {$_ eq "trytiny";} @functions |
|
118
|
0 |
20 |
if $perl_version < 36 and not grep({$_ eq "nodefer";} @functions) |
|
123
|
20 |
0 |
unless grep {$_ eq "nomaybe";} @functions |
|
149
|
1 |
1 |
if $is_exact_extension and $class->can("import") |
|
151
|
0 |
2 |
if ($late_parent) { } |
|
|
1 |
1 |
elsif (not $no_parent and index($class, 'exact::') != 0) { } |
|
161
|
0 |
2 |
$class =~ s/\(([^\)]+)\)//u ? : |
|
165
|
0 |
2 |
unless &$use('exact::' . $class, 'exact/' . $pm, $caller, $params) or &$use($class, $pm, $caller, $params) |
|
176
|
20 |
0 |
unless $perl_version < 18 or grep {$_ eq "noskipexperimentalwarnings";} @functions |
|
178
|
19 |
1 |
unless grep {$_ eq "noautoclean";} @functions |
|
195
|
2 |
1 |
unless $child->isa($parent) |
|
217
|
1 |
1 |
if ($type eq "provide") |
|
228
|
3 |
0 |
if ($original_import and ref $original_import eq "CODE") |
|
230
|
2 |
1 |
if $b_deparsed_sub |
|
233
|
1 |
2 |
if ($type eq 'force') { } |
|
|
2 |
0 |
elsif ($type eq 'provide') { } |
|
241
|
1 |
0 |
exists $groups{$name} ? : |
|
|
1 |
1 |
if (grep {$name eq $_;} @names) { } |