| line |
true |
false |
branch |
|
16
|
0 |
586 |
if ($sep eq '[]')
|
|
55
|
118 |
219 |
if (/^(0|[1-9]\d*)$/) { }
|
|
56
|
25 |
93 |
unless defined $$box_ref
|
|
57
|
0 |
118 |
unless ref $$box_ref eq 'ARRAY'
|
|
62
|
219 |
0 |
if $sep
|
|
63
|
81 |
138 |
unless defined $$box_ref
|
|
64
|
1 |
218 |
unless ref $$box_ref
|
|
65
|
0 |
219 |
unless ref $$box_ref eq 'HASH'
|
|
70
|
1 |
585 |
if (defined $$box_ref)
|
|
71
|
0 |
1 |
if ref $$box_ref ne 'HASH'
|
|
98
|
0 |
0 |
if (not ref $deep) { }
|
|
|
0 |
0 |
elsif (ref $deep eq 'HASH') { }
|
|
|
0 |
0 |
elsif (ref $deep eq 'ARRAY') { }
|
|
106
|
0 |
0 |
if (defined(my $sep = $self->separator))
|
|
115
|
0 |
0 |
if defined $deep->[$_]
|