| line |
true |
false |
branch |
|
133
|
6 |
11 |
if $key eq '' |
|
135
|
0 |
17 |
unless $key =~ /^[0-9]+$/ |
|
136
|
0 |
17 |
if $key > $lastkeynum |
|
156
|
7 |
6 |
if $key eq '' |
|
157
|
2 |
11 |
unless $key =~ /^[0-9]+$/ and $key <= $nextkeynum |
|
163
|
4 |
7 |
if ($key < $nextkeynum) { } |
|
164
|
1 |
3 |
unless $reftype and $reftype =~ /Record/ |
|
167
|
1 |
2 |
unless $key == $keynum |
|
174
|
1 |
6 |
if (not $reftype or $reftype eq 'SCALAR') |
|
177
|
1 |
5 |
if ($reftype =~ /Record/) |
|
180
|
4 |
1 |
if ($reftype eq 'HASH') { } |
|
200
|
0 |
1 |
unless $key =~ /^[0-9]+$/ |
|
201
|
0 |
1 |
if $key > $self->lastkeynum |
|
225
|
0 |
0 |
if $self->nextkeynum > 0 |
|
237
|
0 |
0 |
if $prevkey >= $self->lastkeynum |
|
267
|
0 |
0 |
unless $key =~ /^[0-9]+$/ |
|
268
|
0 |
0 |
if $key > $self->lastkeynum |
|
278
|
0 |
0 |
if $count |