| line |
true |
false |
branch |
|
162
|
1 |
26 |
if (@_) |
|
163
|
0 |
1 |
ref $_[0] ? : |
|
165
|
0 |
6 |
if (not exists $extensions{$_}) { } |
|
|
0 |
6 |
elsif (ref $extensions{$_} ne 'CODE') { } |
|
175
|
0 |
7 |
if (not exists $extensions{$_}) { } |
|
|
0 |
7 |
elsif (ref $extensions{$_} ne 'CODE') { } |
|
194
|
3 |
4 |
unless my $ref = ref $src |
|
196
|
0 |
4 |
if ("$src" =~ /^\Q$ref\E\=([A-Z]+)\(0x[0-9a-fA-Z]+\)$/) |
|
205
|
4 |
3 |
$ref && $ref eq 'ARRAY' ? : |
|
210
|
0 |
85 |
$keys eq '' ? : |
|
|
85 |
32 |
unless ref $keys eq 'ARRAY' |
|
214
|
0 |
117 |
unless @$keys |
|
237
|
5 |
107 |
if (defined $crumbs) |
|
239
|
4 |
1 |
if (_isarrayref($crumbs) and _isarrayref($key) and $key == $crumbs or $key . $; . 'X' eq $crumbs . $; . 'X') |
|
247
|
0 |
112 |
unless exists $$self[0]{$key} |
|
249
|
12 |
100 |
if $$self[7] |
|
262
|
9 |
8 |
if (ref $_[0] eq 'ARRAY') |
|
276
|
212 |
6 |
unless exists $$kh{$key} |
|
286
|
6 |
90 |
if (@vi) { } |
|
303
|
0 |
96 |
if $$self[3] > $indexmax |
|
304
|
0 |
96 |
if $$self[4] > $indexmax |
|
305
|
8 |
88 |
if $$self[7] |
|
317
|
2 |
14 |
unless (defined $_ and defined $$sh{$_}) |
|
327
|
2 |
8 |
if $$self[7] |
|
333
|
0 |
3 |
unless exists $_[0][0]{$_[1]} |
|
334
|
3 |
0 |
if $_[0][7] |
|
348
|
11 |
117 |
if $_[0][7] and defined $key |
|
366
|
1 |
8 |
if $$self[7] |
|
436
|
8 |
0 |
wantarray ? : |
|
460
|
4 |
9 |
unless exists $$kh{$key} |
|
463
|
0 |
14 |
if (exists $$kh{$_} and $$kh{$key} != $vi) |
|
470
|
1 |
8 |
if $$self[7] |
|
471
|
0 |
9 |
if $$self[4] > $indexmax |
|
503
|
2 |
5 |
ref $ks[0] ? : |
|
507
|
12 |
0 |
if (exists $$kh{$key}) { } |
|
512
|
2 |
10 |
if (not keys %{$$sh{$vi};}) { } |
|
515
|
0 |
2 |
if $$self[7] |
|
517
|
2 |
8 |
if $$self[7] |
|
523
|
4 |
3 |
wantarray ? : |
|
548
|
2 |
2 |
if (defined $key) |
|
549
|
0 |
2 |
unless exists $$kh{$key} |
|
635
|
15 |
19 |
if (exists $ovm{$v}) { } |
|
642
|
15 |
19 |
if (exists $kbv{$v}) { } |
|
661
|
1 |
2 |
if $$self[7] |
|
662
|
0 |
3 |
if $$self[3] > $indexmax |
|
725
|
0 |
3 |
unless defined $copy |
|
727
|
0 |
1 |
unless ref $copy eq ref $self or ref $copy eq 'HASH' and ref($copy = tied %$copy) eq ref $self |
|
729
|
2 |
1 |
unless $$copy[3] == 0 |
|
736
|
2 |
0 |
wantarray ? : |
|
753
|
1 |
4 |
if ($$self[7]) |
|
779
|
1 |
2 |
if $$self[7] |
|
799
|
1 |
2 |
if $$self[7] |