| line |
true |
false |
branch |
|
33
|
0 |
14 |
@_ == 1 ? : |
|
34
|
0 |
14 |
unless ref $args and ref $args eq 'HASH' |
|
38
|
59 |
11 |
unless defined $args->{$key} |
|
43
|
1 |
13 |
defined $args->{'registry_class'} ? : |
|
53
|
3 |
50 |
if $DISABLE_VALIDATION or not $args->{'validate'} |
|
59
|
36 |
30 |
unless ($type->check($value)) |
|
63
|
35 |
1 |
if $args->{'print'} |
|
64
|
30 |
6 |
if _on_mismatch($msg, $args->{'on_mismatch'}) |
|
94
|
9 |
177 |
if not defined $name_or_struct or $name_or_struct eq '' |
|
97
|
33 |
144 |
if (my $ref = ref $name_or_struct) { } |
|
98
|
28 |
5 |
if $ref eq 'HASH' |
|
102
|
129 |
15 |
$type && &blessed($type) && $type->can('check') ? : |
|
121
|
16 |
19 |
$is_html ? : |
|
137
|
33 |
3 |
if ($h->[0]) |
|
139
|
6 |
27 |
if $handler |