| line |
true |
false |
branch |
|
17
|
5 |
4 |
if (@_) { } |
|
19
|
0 |
10 |
unless $is_exported{$sub} |
|
41
|
18 |
240 |
if (defined $CGI::Expand::Separator) |
|
42
|
0 |
18 |
unless $CGI::Expand::BackCompat |
|
50
|
17 |
169 |
if (defined $CGI::Expand::Max_Array) |
|
51
|
0 |
17 |
unless $CGI::Expand::BackCompat |
|
65
|
2 |
51 |
if /\.[xy]$/ |
|
67
|
2 |
49 |
@vals > 1 ? : |
|
108
|
67 |
66 |
if ($class->max_array and /^(0|[1-9]\d*)$/) { } |
|
109
|
2 |
65 |
if $1 >= $class->max_array |
|
111
|
41 |
24 |
unless defined $$box_ref |
|
112
|
4 |
61 |
unless ref $$box_ref eq 'ARRAY' |
|
116
|
66 |
0 |
if $sep |
|
117
|
49 |
17 |
unless defined $$box_ref |
|
118
|
3 |
63 |
unless ref $$box_ref eq 'HASH' |
|
123
|
3 |
129 |
if defined $$box_ref |
|
153
|
56 |
46 |
if (not ref $deep) { } |
|
|
34 |
12 |
elsif (ref $deep eq 'HASH') { } |
|
|
12 |
0 |
elsif (ref $deep eq 'ARRAY') { } |
|
160
|
72 |
0 |
if (defined(my $sep = $class->separator)) |
|
167
|
0 |
12 |
if $#$deep + 1 >= $class->max_array |
|
172
|
20 |
4 |
if defined $$deep[$_] |