| line |
true |
false |
branch |
|
15
|
0 |
293 |
if ($sep eq '[]')
|
|
54
|
59 |
89 |
if (/^(0|[1-9]\d*)$/) { }
|
|
55
|
16 |
43 |
unless defined $$box_ref
|
|
56
|
0 |
59 |
unless ref $$box_ref eq 'ARRAY'
|
|
61
|
89 |
0 |
if $sep
|
|
62
|
40 |
49 |
unless defined $$box_ref
|
|
63
|
0 |
89 |
unless ref $$box_ref
|
|
64
|
0 |
89 |
unless ref $$box_ref eq 'HASH'
|
|
69
|
0 |
293 |
if (defined $$box_ref)
|
|
70
|
0 |
0 |
if ref $$box_ref ne 'HASH'
|
|
97
|
0 |
0 |
if (not ref $deep) { }
|
|
|
0 |
0 |
elsif (ref $deep eq 'HASH') { }
|
|
|
0 |
0 |
elsif (ref $deep eq 'ARRAY') { }
|
|
105
|
0 |
0 |
if (defined(my $sep = $self->separator))
|
|
114
|
0 |
0 |
if defined $deep->[$_]
|