| line |
true |
false |
branch |
|
28
|
3 |
0 |
if ($] gt '5.010000') { } |
|
34
|
0 |
3 |
if $@ |
|
43
|
0 |
0 |
if $@ |
|
70
|
1 |
28 |
unless @_ % 2 == 0 |
|
76
|
3283 |
1 |
unless exists $data{$k} |
|
97
|
9 |
6 |
if (@_) { } |
|
|
3 |
3 |
elsif ($self->[2]) { } |
|
130
|
25 |
2 |
wantarray ? : |
|
154
|
1 |
13 |
@_ ? : |
|
|
14 |
2 |
wantarray ? : |
|
181
|
324 |
213 |
unless (exists $self->[0]{$key}) |
|
183
|
4 |
320 |
if (my $indx = $self->[2]) |
|
184
|
4 |
0 |
@$keys ? : |
|
213
|
466 |
2 |
if (exists $self->[0]{$key}) |
|
217
|
12 |
454 |
if (not $self->[2] and @$keys > 25) |
|
223
|
353 |
113 |
if ($self->[2]) { } |
|
230
|
4 |
349 |
if (++$self->[4] > @$keys / 2) { } |
|
|
182 |
167 |
elsif (ref $keys->[0]) { } |
|
|
85 |
82 |
elsif (ref $keys->[-1]) { } |
|
255
|
113 |
695 |
if ($keys->[$_] eq $key) |
|
299
|
112 |
133 |
if exists $data->{$k} |
|
301
|
115 |
130 |
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]) { } |
|
582
|
2 |
3 |
if (my $val = $self->get($key)) |
|
604
|
3 |
2 |
if (defined(my $val = $self->get($key))) |
|
630
|
3 |
41 |
unless @keys |
|
637
|
41 |
0 |
defined $_[0][5] ? : |