line |
true |
false |
branch |
30
|
1 |
16 |
unless ($def_hr->{$key}[0]) |
35
|
4 |
12 |
unless (_check_type($val, $def_hr->{$key}[2])) |
40
|
2 |
10 |
unless (_check_class($val, $def_hr->{$key}[1])) |
52
|
2 |
9 |
$def_hr->{$_}[3] ? : |
53
|
1 |
1 |
unless (grep {$req eq $_;} @processed) |
67
|
7 |
9 |
if (ref $type eq 'ARRAY') { } |
69
|
6 |
6 |
if (_check_type_one($value, $_)) |
84
|
12 |
9 |
if (ref $value eq $type or ref \$value eq $type) { } |
97
|
11 |
7 |
if ($class_name) { } |
100
|
3 |
8 |
if (ref $value eq 'ARRAY') { } |
102
|
2 |
4 |
unless (_check_class($_, $class_name)) |
119
|
2 |
6 |
if (not &blessed($class) && $class->isa($class_name)) { } |