| line |
true |
false |
branch |
|
105
|
0 |
2 |
if $i + 1 >= @_ |
|
111
|
1 |
1 |
if ($i + 2 <= $#_ and UNIVERSAL::isa($_[$i + 2], 'CODE')) { } |
|
160
|
12 |
53 |
exists $_[0]{' translate'}{$_} ? : |
|
|
65 |
41 |
if exists $_[0]{$_}{$_[1]} |
|
171
|
3 |
14 |
if exists $_[0]{$_}{$_[1]} |
|
179
|
3 |
0 |
@{$_[0]{' order'};} ? : |
|
189
|
11 |
3 |
$counter > -1 ? : |
|
194
|
14 |
0 |
if defined $hash |
|
200
|
3 |
5 |
if ($counter > -1 and $counter < @{$$self{' order'};} - 1) { } |
|
|
3 |
2 |
elsif ($counter != -1) { } |
|
208
|
8 |
0 |
if (defined $hash) |
|
214
|
2 |
6 |
if not defined $key and $counter == -1 |
|
217
|
2 |
12 |
if (not defined $key) { } |
|
315
|
0 |
20 |
unless $_[1] =~ /^(?!\d)\w+$/ |
|
317
|
0 |
0 |
defined $_[2] ? : |
|
|
0 |
20 |
unless UNIVERSAL::isa($_[2], 'HASH') |
|
321
|
0 |
20 |
if defined $_[3] and not UNIVERSAL::isa($_[3], 'CODE') |
|
327
|
15 |
5 |
unless ($exists) |
|
330
|
5 |
15 |
if (defined $_[3]) { } |
|
366
|
0 |
5 |
unless $_[1] =~ /^(?!\d)\w+$/ |
|
368
|
0 |
5 |
unless exists $_[0]{$_[1]} |
|
381
|
7 |
11 |
if (exists $_[0]{$_}{$_[1]}) |
|
382
|
1 |
6 |
if (exists $_[0]{' translate'}{$_}) { } |
|
397
|
1 |
2 |
if exists $_[0]{$_}{$_[1]} and not exists $_[0]{' translate'}{$_} |