| line |
true |
false |
branch |
|
13
|
0 |
33 |
if (ref $args ne 'HASH') |
|
19
|
33 |
0 |
unless $result |
|
33
|
33 |
0 |
if (not ref $args->{$k}) { } |
|
34
|
0 |
33 |
if @failed = _failed_key_value($k, $args->{$k}, $config->{'skip_check_sanity'}) |
|
36
|
0 |
0 |
if (ref $args->{$k} eq 'HASH') { } |
|
|
0 |
0 |
elsif (ref $args->{$k} eq 'ARRAY') { } |
|
39
|
0 |
0 |
if @failed = _failed_key_value($l, $args->{$k}{$l}, $config->{'skip_check_sanity'}) |
|
43
|
0 |
0 |
if @failed = _failed_key_value($k, $l, $config->{'skip_check_sanity'}) |
|
49
|
0 |
33 |
if (@failed) |
|
62
|
0 |
33 |
unless ($key =~ /$key_regex/) |
|
66
|
0 |
33 |
if ($skip_check_sanity and $key =~ /$skip_check_sanity/) |
|
70
|
0 |
33 |
if (not $key =~ /$key_regex/ or $value and not $value =~ /^[\p{Script=Common}\p{Letter}\s\w\@_:!-~]{0,300}$/) |