| line |
true |
false |
branch |
|
46
|
0 |
8 |
if ($opt eq 'class') { } |
|
|
0 |
8 |
elsif ($opt eq 'cor') { } |
|
|
0 |
8 |
elsif ($opt eq 'nocor') { } |
|
|
2 |
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) { } |
|
62
|
2 |
0 |
if grep {$_ eq $opt;} @$functions_available |
|
68
|
2 |
0 |
unless $opt =~ /^no[a-z]{2}/u |
|
72
|
18 |
0 |
unless grep {$_ eq "nostrict";} @functions |
|
73
|
18 |
0 |
unless grep {$_ eq "nowarnings";} @functions |
|
75
|
1 |
17 |
if (@bundles) { } |
|
|
16 |
1 |
elsif (not grep({$_ eq 'nofeatures';} @functions) || grep({$_ eq 'nobundle';} @functions)) { } |
|
82
|
16 |
0 |
$perl_version >= 16 ? : |
|
87
|
18 |
0 |
unless (grep {$_ eq "noutf8";} @functions) |
|
93
|
18 |
0 |
unless grep {$_ eq "noc3";} @functions |
|
96
|
18 |
0 |
unless grep {$_ eq "nocarp";} @functions |
|
102
|
0 |
0 |
if grep {$_ eq "try";} @$features_available and grep({$_ eq 'notry';} @functions) || grep({$_ eq 'trytiny';} @functions) |
|
108
|
18 |
0 |
if $perl_version < 36 and not grep({$_ eq "notry";} @functions) and not grep({$_ eq "trytiny";} @functions) |
|
110
|
0 |
18 |
if grep {$_ eq "trytiny";} @functions |
|
114
|
18 |
0 |
unless grep {$_ eq "nomaybe";} @functions |
|
140
|
1 |
1 |
if $is_exact_extension and $class->can("import") |
|
142
|
0 |
2 |
if ($late_parent) { } |
|
|
1 |
1 |
elsif (not $no_parent and index($class, 'exact::') != 0) { } |
|
152
|
0 |
2 |
$class =~ s/\(([^\)]+)\)//u ? : |
|
156
|
0 |
2 |
unless &$use("exact::" . $class, "exact/" . $pm, $caller, $params) or &$use($class, $pm, $caller, $params) |
|
167
|
18 |
0 |
unless $perl_version < 18 or grep {$_ eq "noskipexperimentalwarnings";} @functions |
|
169
|
17 |
1 |
unless grep {$_ eq "noautoclean";} @functions |
|
186
|
2 |
1 |
unless $child->isa($parent) |
|
208
|
1 |
1 |
if ($type eq "provide") |
|
219
|
2 |
1 |
if $original_import |
|
221
|
1 |
2 |
if ($type eq 'force') { } |
|
|
2 |
0 |
elsif ($type eq 'provide') { } |
|
229
|
1 |
0 |
exists $groups{$name} ? : |
|
|
1 |
1 |
grep({$name eq $_;} @names) ? : |