| line |
true |
false |
branch |
|
47
|
0 |
6 |
if ($opt eq 'class') { } |
|
|
0 |
6 |
elsif ($opt eq 'cor') { } |
|
|
0 |
6 |
elsif ($opt eq 'nocor') { } |
|
|
1 |
5 |
elsif (grep {$_ eq $opt;} @$features_available) { } |
|
|
0 |
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) { } |
|
63
|
2 |
0 |
if grep {$_ eq $opt;} @$functions_available |
|
69
|
2 |
0 |
unless $opt =~ /^no[a-z]{2}/u |
|
73
|
18 |
0 |
unless grep {$_ eq "nostrict";} @functions |
|
74
|
18 |
0 |
unless grep {$_ eq "nowarnings";} @functions |
|
76
|
1 |
17 |
if (@bundles) { } |
|
|
16 |
1 |
elsif (not grep({$_ eq 'nofeatures';} @functions) || grep({$_ eq 'nobundle';} @functions)) { } |
|
83
|
16 |
0 |
$perl_version >= 16 ? : |
|
88
|
18 |
0 |
unless (grep {$_ eq "noutf8";} @functions) |
|
94
|
18 |
0 |
unless grep {$_ eq "noc3";} @functions |
|
99
|
18 |
0 |
unless grep {$_ eq "nocarp";} @functions |
|
105
|
0 |
18 |
if grep {$_ eq "try";} @$features_available and grep({$_ eq 'notry';} @functions) || grep({$_ eq 'trytiny';} @functions) |
|
111
|
0 |
0 |
if $perl_version < 36 and not grep({$_ eq "notry";} @functions) and not grep({$_ eq "trytiny";} @functions) |
|
113
|
0 |
18 |
if grep {$_ eq "trytiny";} @functions |
|
117
|
18 |
0 |
unless grep {$_ eq "nomaybe";} @functions |
|
143
|
1 |
1 |
if $is_exact_extension and $class->can("import") |
|
145
|
0 |
2 |
if ($late_parent) { } |
|
|
1 |
1 |
elsif (not $no_parent and index($class, 'exact::') != 0) { } |
|
155
|
0 |
2 |
$class =~ s/\(([^\)]+)\)//u ? : |
|
159
|
0 |
2 |
unless &$use('exact::' . $class, 'exact/' . $pm, $caller, $params) or &$use($class, $pm, $caller, $params) |
|
170
|
18 |
0 |
unless $perl_version < 18 or grep {$_ eq "noskipexperimentalwarnings";} @functions |
|
172
|
17 |
1 |
unless grep {$_ eq "noautoclean";} @functions |
|
189
|
2 |
1 |
unless $child->isa($parent) |
|
211
|
1 |
1 |
if ($type eq "provide") |
|
222
|
3 |
0 |
if ($original_import and ref $original_import eq "CODE") |
|
224
|
2 |
1 |
if $b_deparsed_sub |
|
227
|
1 |
2 |
if ($type eq 'force') { } |
|
|
2 |
0 |
elsif ($type eq 'provide') { } |
|
235
|
1 |
0 |
exists $groups{$name} ? : |
|
|
1 |
1 |
if (grep {$name eq $_;} @names) { } |