| line |
true |
false |
branch |
|
17
|
0 |
5 |
unless $class |
|
19
|
0 |
5 |
unless $class =~ /^[[:lower:]\d:]+$/imsx |
|
26
|
3 |
2 |
if exists $INC{$path} and defined $INC{$path} |
|
32
|
0 |
0 |
if defined &{$_;} |
|
40
|
0 |
2 |
unless (eval {
do {
require $path;
1
}
}) |
|
63
|
0 |
0 |
wantarray ? : |
|
72
|
0 |
0 |
if (not exists $clone->{$key}) { } |
|
|
0 |
0 |
elsif (not ref $clone->{$key}) { } |
|
89
|
1 |
6 |
unless defined $data |
|
91
|
5 |
1 |
if ref $data eq 'ARRAY' |
|
108
|
12 |
30 |
if ref $value eq 'HASH' or ref $value eq 'ARRAY' |
|
110
|
1 |
41 |
unless defined $value |
|
114
|
23 |
7 |
unless (exists $order{$row_sign}) |
|
126
|
7 |
5 |
unless ref $prev->{$key} eq 'HASH' or ref $prev->{$key} eq 'ARRAY' |
|
131
|
1 |
4 |
ref $prev->{$key} eq 'ARRAY' ? : |
|
134
|
4 |
1 |
if (@$merged_rows > 1) |
|
138
|
1 |
3 |
ref $prev->{$key} eq 'ARRAY' ? : |
|
152
|
1 |
3 |
if ($params->{'columns'}) { } |
|
153
|
1 |
0 |
if $params->{'columns'} |
|
159
|
1 |
3 |
if $params->{'+columns'} |
|
160
|
1 |
3 |
if ($params->{'-columns'}) |
|
163
|
0 |
2 |
ref $_ ? : |