| line |
true |
false |
branch |
|
88
|
34 |
67 |
unless $p{'listDepth'} |
|
100
|
56 |
45 |
if ($list and $entry) { } |
|
102
|
56 |
0 |
if (UNIVERSAL::isa($list, 'ARRAY')) |
|
107
|
6 |
50 |
if (my $sort = $$self{'options'}{'sort'}) |
|
110
|
1 |
5 |
if ($sort eq '1') { } |
|
111
|
1 |
0 |
if ($$self{'options'}{'numericalSort'}) { } |
|
128
|
1 |
159 |
unless defined $$list[$index] |
|
130
|
0 |
159 |
unless defined $$list[$index] |
|
154
|
22 |
137 |
if ($sublist and $p{'listDepth'} < 10) |
|
163
|
100 |
54 |
if defined $seperator and $seperator ne '' and defined $result and $result ne '' |
|
169
|
2 |
43 |
if ($noentry) |
|
173
|
43 |
56 |
unless $result |
|
199
|
22 |
0 |
if (defined $object) |
|
205
|
6 |
16 |
if $result |
|
225
|
75 |
209 |
unless defined $first |
|
226
|
142 |
142 |
if ($name eq 'entry') { } |
|
|
16 |
126 |
elsif ($name eq 'sublist') { } |
|
|
75 |
51 |
elsif ($data ne 'END') { } |
|
227
|
71 |
71 |
if $name eq 'entry' and $data ne 'END' |
|
228
|
71 |
71 |
if $name eq 'entry' and $data eq 'END' |
|
233
|
74 |
1 |
$i + 1 < $length ? : |
|
238
|
8 |
71 |
if (not defined $start && defined $end) { } |