| line |
true |
false |
branch |
|
48
|
0 |
13 |
unless exists $valid_option{$k} |
|
58
|
13 |
129 |
if (@_) { } |
|
69
|
3 |
63 |
if not ref $schema or &reftype($schema) ne 'HASH' |
|
71
|
0 |
63 |
unless $method |
|
79
|
0 |
63 |
unless $type |
|
81
|
63 |
0 |
if $self->can($method) |
|
89
|
2 |
9 |
unless $self->booleans |
|
90
|
8 |
1 |
if $struc |
|
98
|
2 |
15 |
unless $self->numbers |
|
107
|
2 |
26 |
unless $self->numbers |
|
110
|
24 |
2 |
if ($self->round_numbers) |
|
112
|
15 |
9 |
if $quantum |
|
115
|
16 |
10 |
if ($self->clamp_numbers) |
|
116
|
3 |
13 |
if exists $schema->{'maximum'} and $result > $schema->{'maximum'} |
|
117
|
1 |
15 |
if exists $schema->{'minimum'} and $result < $schema->{'minimum'} |
|
127
|
2 |
8 |
unless $self->strings |
|
135
|
0 |
1 |
if &reftype($struc) ne 'ARRAY' |
|
150
|
0 |
11 |
if &reftype($struc) ne 'HASH' |
|
158
|
8 |
1 |
if ($self->hash_keys and exists $schema->{'additionalProperties'} and not $schema->{'additionalProperties'}) |
|
167
|
8 |
41 |
if $keys_re and not $key =~ /$keys_re/x |
|
170
|
0 |
41 |
if (my $re_key = !$subschema && &first(sub {
$key =~ /$_/x;
}
, keys %$p_properties)) |
|
185
|
41 |
3 |
if $key =~ /^[_A-Za-z]\w*$/x |