| line |
true |
false |
branch |
|
24
|
16 |
31 |
if (ref $_[0]) |
|
31
|
4 |
8 |
if ($self->[4] and $self->[4]{'required'}) |
|
32
|
3 |
1 |
if (ref $self->[4]{'required'}) { } |
|
43
|
353 |
34 |
exists $self->[0]{$key} ? : |
|
49
|
56 |
91 |
if ($self->[4]) |
|
52
|
3 |
53 |
if ($self->[4]{'strict'} and not $described) |
|
56
|
50 |
3 |
if $described |
|
60
|
3 |
138 |
if (exists $self->[0]{$key}) { } |
|
|
37 |
101 |
elsif ($self->[4] and defined $self->[4]{'ordered_keys'}{$key} and $self->[4]{'ordered_keys'}{$key} <= scalar @{$self->[1];}) { } |
|
68
|
6 |
7 |
$i == 0 ? : |
|
|
13 |
24 |
if $before and ($self->[4]{'ordered_keys'}{$before} || -1) >= $i |
|
84
|
4 |
1 |
if (exists $self->[0]{$key}) |
|
88
|
3 |
1 |
if $i == $self->[3] - 1 |
|
109
|
84 |
28 |
if $_[0][3] <= $#{$_[0][1];} |
|
121
|
16 |
61 |
if ($key eq "keys") |
|
122
|
15 |
1 |
if (ref $value eq 'ARRAY') { } |
|
132
|
15 |
15 |
if scalar keys %keys |
|
139
|
1 |
10 |
unless (defined $self->[0]{$key}) |