| line |
true |
false |
branch |
|
28
|
0 |
3 |
unless $self |
|
32
|
1 |
15 |
ref $_ ? : |
|
87
|
10 |
25 |
unless $arg_ref |
|
90
|
8 |
17 |
if $$arg_ref{'clone'} |
|
92
|
1 |
24 |
unless ('ARRAY' eq ref $array) |
|
95
|
1 |
23 |
if (@$array % 2) |
|
103
|
4 |
52 |
if (ref $key) |
|
117
|
0 |
86 |
unless defined $key |
|
119
|
1 |
85 |
if ($$self{'is_strict'} and not $exists) |
|
122
|
72 |
13 |
if ($exists) { } |
|
|
1 |
12 |
elsif (@keys > 1) { } |
|
133
|
1 |
49 |
@keys > 1 ? : |
|
|
20 |
50 |
wantarray ? : |
|
170
|
2 |
2 |
unless @_ |
|
192
|
0 |
5 |
if ($self->exists($key)) |
|
206
|
0 |
13 |
if ($self->exists($key)) |
|
216
|
1 |
2 |
unless $self |
|
219
|
1 |
1 |
wantarray ? : |
|
224
|
1 |
2 |
unless $self |
|
230
|
1 |
1 |
wantarray ? : |
|
248
|
1 |
1 |
defined $index ? : |
|
254
|
2 |
5 |
unless $self->exists($key) |
|
265
|
2 |
19 |
wantarray ? : |
|
275
|
2 |
17 |
wantarray ? : |
|
296
|
6 |
27 |
if ($index >= @array) |
|
306
|
24 |
3 |
if (wantarray) { } |
|
347
|
0 |
1 |
1 == @_ ? : |
|
|
6 |
1 |
wantarray ? : |
|
359
|
0 |
2 |
1 == @_ ? : |
|
|
6 |
2 |
wantarray ? : |
|
369
|
11 |
3 |
if ($self->exists($key)) { } |
|
|
1 |
2 |
elsif ($$self{'is_strict'}) { } |
|
375
|
12 |
5 |
if ($$self{'index_of'}{$curr_key} >= $index) |
|
383
|
3 |
10 |
if (@_) |
|
387
|
1 |
5 |
$num_args > 1 ? : |
|
|
7 |
6 |
wantarray ? : |
|
403
|
0 |
339 |
unless defined $key |
|
414
|
0 |
3 |
unless ($self->exists($old)) |
|
417
|
0 |
3 |
unless (defined $new) |
|
420
|
0 |
3 |
if ($self->exists($new)) |
|
437
|
17 |
3 |
if ($self->exists($key)) { } |
|
|
1 |
2 |
elsif ($$self{'is_strict'}) { } |
|
444
|
5 |
5 |
wantarray ? : |
|
453
|
1 |
4 |
if $self->exists($k) |
|
466
|
1 |
1 |
if ($self->exists($key)) |
|
484
|
2 |
18 |
if (not $self->exists($key) and $$self{'is_strict'}) |
|
498
|
143 |
7 |
wantarray ? : |