| line |
true |
false |
branch |
|
21
|
2 |
11 |
if been_numeric($val) or not defined $val |
|
23
|
2 |
7 |
if $val eq '1' or $val eq 'true' or $val eq 'yes' or $val eq 'on' |
|
26
|
2 |
3 |
if $val eq '0' or $val eq 'false' or $val eq 'no' or $val eq 'off' |
|
44
|
0 |
0 |
unless &reftype($hr) eq 'HASH' |
|
58
|
0 |
20 |
unless defined $string |
|
62
|
1 |
19 |
if $string =~ s/^([^A-Z]+)// |
|
66
|
14 |
1 |
unless $words[$_] =~ /[^a-z]$/ |
|
74
|
0 |
27 |
unless defined $string |
|
78
|
2 |
25 |
if $string =~ s/\A(\Q$separator\E+)// |
|
80
|
2 |
25 |
if ($want_camelcase and $string =~ s/\A([^\Q$separator\E]+)\Q$separator\E?//) |
|
83
|
0 |
2 |
if $string =~ s/\A(\Q$separator\E+)// |
|
88
|
2 |
35 |
if $string =~ s/\A(\Q$separator\E+)// |
|
91
|
1 |
26 |
if @words and $words[-1] =~ /\A\Q$separator\E/ |
|
97
|
5 |
9 |
ref $_[-1] eq 'CODE' ? : |
|
98
|
1 |
13 |
unless defined $string |
|
126
|
41 |
1 |
if (ref $ref->[0]) |
|
127
|
9 |
32 |
if (my(@deeper) = grep(ref($_->[0]), @$ref)) { } |
|
146
|
0 |
0 |
if exists $INC{$module} |
|
150
|
0 |
0 |
if exists $INC{$module} |
|
158
|
1 |
0 |
if B::svref_2object(\$value)->FLAGS & 12288 and 0 + $value eq $value and $value * 0 == 0 |
|
164
|
1 |
3 |
ref $_[-1] eq 'ARRAY' ? : |
|
167
|
0 |
4 |
unless open my $file, '>', $path |
|
176
|
5 |
5 |
if @_ % 2 == 0 |
|
177
|
5 |
0 |
if ref $_[0] eq 'HASH' or &reftype($_[0]) eq 'HASH' |
|
184
|
3 |
3 |
unless ref $requireds eq 'ARRAY' |
|
193
|
0 |
0 |
if (&reftype($left) eq 'ARRAY') { } |
|
194
|
0 |
0 |
if (&reftype($right) eq 'ARRAY') { } |
|
204
|
0 |
0 |
if (&reftype($right) eq 'ARRAY') { } |
|
219
|
0 |
0 |
unless ref $_[0] |
|
221
|
0 |
0 |
unless @_ |
|
236
|
0 |
0 |
if ($class) |
|
237
|
0 |
0 |
if ($left->can('clone')) { } |
|
|
0 |
0 |
elsif ($left->can('new')) { } |
|
|
0 |
0 |
elsif (ref $left eq 'HASH') { } |
|
252
|
0 |
0 |
do {
@_ % 2 == 0 if @_ > 1
} ? : |
|
|
0 |
0 |
do {
ref $_[0] if @_ > 1
} ? : |
|
|
0 |
0 |
do {
ref $_[0] if @_ == 1
} ? : |
|
|
0 |
0 |
@_ ? : |
|
256
|
0 |
0 |
if @_ == 1 |
|
260
|
0 |
0 |
if @_ > 1 |
|
265
|
0 |
0 |
if @_ > 1 |