| line |
true |
false |
branch |
|
46
|
0 |
7 |
if ($opt eq 'class') { } |
|
|
0 |
7 |
elsif ($opt eq 'cor') { } |
|
|
0 |
7 |
elsif ($opt eq 'nocor') { } |
|
|
2 |
5 |
elsif (grep {$_ eq $opt;} @$features_available) { } |
|
|
1 |
4 |
elsif (my($nofeature) = grep({'no' . $_ eq $opt;} @$features_available)) { } |
|
|
2 |
2 |
elsif (grep {$_ eq $opt;} @$functions_available, @$functions_deprecated) { } |
|
|
1 |
1 |
elsif ($opt =~ /^:?v?5?\.?(\d+)/u and $1 >= 10) { } |
|
62
|
2 |
0 |
if grep {$_ eq $opt;} @$functions_available |
|
68
|
1 |
0 |
unless $opt =~ /^no[a-z]{2}/u |
|
72
|
17 |
0 |
unless grep {$_ eq "nostrict";} @functions |
|
73
|
17 |
0 |
unless grep {$_ eq "nowarnings";} @functions |
|
75
|
1 |
16 |
if (@bundles) { } |
|
|
15 |
1 |
elsif (not grep({$_ eq 'nofeatures';} @functions) || grep({$_ eq 'nobundle';} @functions)) { } |
|
82
|
15 |
0 |
$perl_version >= 16 ? : |
|
87
|
17 |
0 |
unless (grep {$_ eq "noutf8";} @functions) |
|
93
|
17 |
0 |
unless grep {$_ eq "noc3";} @functions |
|
96
|
17 |
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
|
17 |
0 |
if $perl_version < 36 and not grep({$_ eq "notry";} @functions) and not grep({$_ eq "trytiny";} @functions) |
|
114
|
0 |
17 |
if grep {$_ eq "trytiny";} @functions |
|
118
|
17 |
0 |
unless grep {$_ eq "nomaybe";} @functions |
|
139
|
1 |
0 |
if "$class"->can("import") |
|
141
|
0 |
1 |
if ($late_parent) { } |
|
|
0 |
1 |
elsif (not $no_parent and index($class, 'exact::') != 0) { } |
|
151
|
0 |
1 |
$class =~ s/\(([^\)]+)\)//u ? : |
|
155
|
0 |
1 |
unless &$use("exact::" . $class, "exact/" . $pm, $caller, $params) or &$use($class, $pm, $caller, $params) |
|
174
|
17 |
0 |
unless $perl_version < 18 or grep {$_ eq "noskipexperimentalwarnings";} @functions |
|
176
|
16 |
1 |
unless grep {$_ eq "noautoclean";} @functions |
|
193
|
1 |
1 |
unless grep {$_ eq $parent;} @{"${child}::ISA";} |
|
215
|
1 |
1 |
if ($type eq "provide") |
|
226
|
2 |
1 |
if $original_import |
|
228
|
1 |
2 |
if ($type eq 'force') { } |
|
|
2 |
0 |
elsif ($type eq 'provide') { } |
|
236
|
1 |
0 |
exists $groups{$name} ? : |
|
|
1 |
1 |
grep({$name eq $_;} @names) ? : |