| line |
true |
false |
branch |
|
28
|
3 |
0 |
if ($] gt '5.010000') { } |
|
34
|
0 |
3 |
if $@ |
|
43
|
0 |
0 |
if $@ |
|
70
|
1 |
27 |
unless @_ % 2 == 0 |
|
76
|
3283 |
1 |
unless exists $data{$k} |
|
97
|
9 |
6 |
if (@_) { } |
|
|
3 |
3 |
elsif ($self->[2]) { } |
|
130
|
20 |
2 |
wantarray ? : |
|
154
|
1 |
9 |
@_ ? : |
|
|
10 |
2 |
wantarray ? : |
|
181
|
319 |
212 |
unless (exists $self->[0]{$key}) |
|
183
|
4 |
315 |
if (my $indx = $self->[2]) |
|
184
|
4 |
0 |
@$keys ? : |
|
213
|
465 |
2 |
if (exists $self->[0]{$key}) |
|
217
|
12 |
453 |
if (not $self->[2] and @$keys > 25) |
|
223
|
354 |
111 |
if ($self->[2]) { } |
|
230
|
4 |
350 |
if (++$self->[4] > @$keys / 2) { } |
|
|
182 |
168 |
elsif (ref $keys->[0]) { } |
|
|
83 |
85 |
elsif (ref $keys->[-1]) { } |
|
255
|
111 |
687 |
if ($keys->[$_] eq $key) |
|
299
|
111 |
133 |
if exists $data->{$k} |
|
301
|
115 |
129 |
if (my $indx = $self->[2]) |
|
302
|
115 |
0 |
@$keys ? : |
|
322
|
2 |
1026 |
if ($self->[2]) { } |
|
328
|
1022 |
4 |
defined $key ? : |
|
349
|
105 |
121 |
if exists $data->{$k} |
|
352
|
86 |
140 |
if $self->[2] |
|
370
|
2 |
1026 |
if ($self->[2]) { } |
|
376
|
1022 |
4 |
defined $key ? : |
|
394
|
4 |
2 |
unless (exists $self->[0]{$k}) |
|
396
|
2 |
2 |
if $self->[2] |
|
419
|
1 |
33 |
@_ ? : |
|
445
|
1 |
1 |
unless @keys |
|
448
|
2 |
26 |
unless @keys |
|
560
|
1 |
1 |
if (defined $_[2]) { } |
|
596
|
3 |
0 |
if ($] ge '5.010') { } |
|
603
|
0 |
3 |
if $@ |
|
617
|
0 |
0 |
if $@ |
|
640
|
3 |
41 |
unless @keys |
|
647
|
41 |
0 |
defined $_[0][5] ? : |