| line |
true |
false |
branch |
|
24
|
13 |
26 |
if (ref $_[0]) |
|
31
|
2 |
8 |
if ($self->[4] and $self->[4]{'required'}) |
|
32
|
1 |
1 |
if (ref $self->[4]{'required'}) { } |
|
43
|
316 |
34 |
exists $self->[0]{$key} ? : |
|
49
|
51 |
75 |
if ($self->[4]) |
|
52
|
3 |
48 |
if ($self->[4]{'strict'} and not $described) |
|
56
|
45 |
3 |
if $described |
|
60
|
3 |
117 |
if (exists $self->[0]{$key}) { } |
|
|
34 |
83 |
elsif ($self->[4] and defined $self->[4]{'ordered_keys'}{$key} and $self->[4]{'ordered_keys'}{$key} <= scalar @{$self->[1];}) { } |
|
68
|
5 |
5 |
$i == 0 ? : |
|
|
10 |
24 |
if $before and ($self->[4]{'ordered_keys'}{$before} || -1) >= $i |
|
84
|
3 |
0 |
if (exists $self->[0]{$key}) |
|
88
|
3 |
0 |
if $i == $self->[3] - 1 |
|
109
|
78 |
26 |
if $_[0][3] <= $#{$_[0][1];} |
|
121
|
13 |
49 |
if ($key eq "keys" and ref $value eq "ARRAY") |
|
128
|
13 |
13 |
if scalar keys %keys |
|
135
|
0 |
7 |
unless (defined $self->[0]{$key}) |