| line |
true |
false |
branch |
|
29
|
1097 |
138 |
if ($k =~ /^\-?\d+$/) |
|
46
|
13 |
148 |
if (exists $self->{'map'}) |
|
66
|
2 |
337 |
unless exists $self->{'strmap'} |
|
68
|
335 |
4 |
if (defined $self->{'strmap'}) |
|
84
|
305 |
70 |
if (defined $self->{'strmap'} and exists $self->{'strmap'}{$k}) |
|
87
|
2 |
376 |
if ($k0 =~ /^#str\d+$/ and $k =~ /^\-?(\d|[1-9]\d+)$/) { } |
|
|
232 |
144 |
elsif (not $k0 =~ /^#str\d+$/ and ref $k eq '' and $k =~ /^\-?(\d|[1-9]\d+|\d+\.\d*|\d*\.\d+)([eE][+-]?\d+)?$/) { } |
|
102
|
179 |
253 |
if (defined $k) { } |
|
104
|
93 |
86 |
if (is_int_index($k)) { } |
|
105
|
59 |
34 |
if (not defined $self->{'idx'} or $k >= $self->{'idx'}) |
|
111
|
130 |
49 |
unless (exists $self->{'map'} and exists $self->{'ordered'}) |
|
118
|
142 |
111 |
unless exists $self->{'map'} |
|
119
|
142 |
111 |
unless defined $self->{'idx'} |
|
123
|
0 |
432 |
if (defined $self->{'strmap'} and ref $v eq ref $self) { } |
|
135
|
197 |
22 |
if (exists $self->{'map'}) |
|
138
|
161 |
36 |
if (exists $self->{'map'}{$k}) |
|
152
|
51 |
12 |
if (exists $self->{'map'}) |
|
153
|
29 |
22 |
if (exists $self->{'ordered'} or defined $keys) { } |
|
159
|
50 |
1 |
unless (defined $keys) |
|
166
|
82 |
0 |
if (defined $v and defined $self->{'strmap'} and exists $self->{'strmap'}{$v}) |
|
169
|
5 |
82 |
if (defined $v and ref $v eq ref $self) { } |
|
171
|
4 |
1 |
if (defined $self->{'strmap'}) { } |
|
182
|
9 |
42 |
if exists $self->{'non_numeric'} |
|
190
|
2 |
0 |
if (exists $self->{'map'}) |
|
193
|
2 |
0 |
unless (exists $self->{'ordered'}) |
|
204
|
0 |
1358 |
unless exists $self->{'map'}{$k} |
|
211
|
1111 |
93 |
if (exists $self->{'map'}) |
|
213
|
246 |
865 |
if (exists $self->{'ordered'}) { } |
|
231
|
0 |
0 |
if (exists $self->{'map'}) |
|
232
|
0 |
0 |
if (exists $self->{'non_numeric'}) { } |
|
258
|
0 |
6 |
if (exists $self->{'non_numeric'}) |
|
278
|
0 |
0 |
if (defined $v and defined $self->{'strmap'} and exists $self->{'strmap'}{$v}) |
|
281
|
9 |
7 |
if $str ne "(" |
|
282
|
2 |
14 |
if (defined $v and ref $v eq ref $self) { } |
|
285
|
11 |
3 |
if (is_int_index($k)) { } |