| line |
true |
false |
branch |
|
32
|
0 |
14 |
@_ == 1 ? : |
|
33
|
0 |
14 |
unless ref $args and ref $args eq 'HASH' |
|
37
|
59 |
11 |
unless defined $args->{$key} |
|
42
|
1 |
13 |
defined $args->{'registry_class'} ? : |
|
52
|
3 |
36 |
if $DISABLE_VALIDATION or not $args->{'validate'} |
|
58
|
24 |
28 |
unless ($type->check($value)) |
|
62
|
23 |
1 |
if $args->{'print'} |
|
63
|
18 |
6 |
if _on_mismatch($msg, $args->{'on_mismatch'}) |
|
85
|
7 |
161 |
if not defined $name_or_struct or $name_or_struct eq '' |
|
88
|
29 |
132 |
if (my $ref = ref $name_or_struct) { } |
|
89
|
24 |
5 |
if $ref eq 'HASH' |
|
93
|
125 |
7 |
$type && &blessed($type) && $type->can('check') ? : |
|
112
|
22 |
1 |
$is_html ? : |
|
128
|
21 |
3 |
if ($h->[0]) |
|
130
|
6 |
15 |
if $handler |