| line |
true |
false |
branch |
|
36
|
6 |
22 |
if (exists $is_invocant{var_name(1, \$_[0]) or ''}) |
|
45
|
0 |
36 |
unless my $name = var_name(1, \$_[$i]) |
|
50
|
5 |
31 |
if ($name =~ /_/) |
|
59
|
32 |
4 |
if ($rule) |
|
60
|
17 |
15 |
if (ref $rule and ref $rule eq 'HASH') { } |
|
62
|
2 |
15 |
if ($$rule{'default'}) |
|
66
|
3 |
14 |
if ($$rule{'required'}) |
|
70
|
6 |
11 |
if ($$rule{'alias'}) |
|
74
|
1 |
16 |
if ($$rule{'comment'}) |
|
78
|
17 |
0 |
if (my $isa = $$rule{'isa'}) |
|
79
|
0 |
17 |
if ($isa eq 'Bool') |
|
86
|
0 |
15 |
if ($rule eq 'Bool') |
|
94
|
17 |
19 |
if (length $name > 1) |
|
98
|
32 |
4 |
if defined $_[$i + 1] |
|
107
|
0 |
29 |
unless my $name = var_name(1, \$_[$i]) |
|
113
|
26 |
3 |
if defined $_[$i + 1] |