| line |
true |
false |
branch |
|
31
|
8 |
22 |
if (defined $args{$key}) |
|
32
|
0 |
8 |
unless ref $args{$key} eq "HASH" |
|
36
|
6 |
11 |
ref $args{$key}{$n} eq 'HASH' ? : |
|
39
|
17 |
0 |
if (defined $rule->{'isa'}) { } |
|
|
0 |
0 |
elsif (defined $rule->{'does'}) { } |
|
45
|
8 |
9 |
$key eq 'rw_lazy' || $key eq 'ro_lazy' ? : |
|
53
|
1 |
5 |
if exists $args{'new'} and not $args{'new'} |
|
129
|
0 |
15 |
@_ == 1 && ref $_[0] eq 'HASH' ? : |
|
133
|
27 |
45 |
unless (exists $args{$n}) |
|
134
|
24 |
3 |
if $rules{$n}{'lazy'} |
|
136
|
1 |
2 |
if ($rules{$n}{'default'}) { } |
|
|
1 |
1 |
elsif ($rules{$n}{'optional'}) { } |
|
147
|
1 |
11 |
if (keys %args > keys %rules) |
|
159
|
11 |
4 |
if @_ == 1 |
|
160
|
4 |
0 |
if @_ == 2 |
|
168
|
2 |
1 |
if @_ == 1 |
|
178
|
1 |
1 |
if @_ == 2 |
|
188
|
9 |
2 |
if (@_ == 1) { } |
|
|
2 |
0 |
elsif (@_ == 2) { } |
|
189
|
5 |
4 |
if exists $_[0]{$n} |
|
201
|
8 |
0 |
if (@_ == 1) |
|
202
|
4 |
4 |
if exists $_[0]{$n} |
|
215
|
0 |
61 |
unless defined $type |
|
216
|
54 |
7 |
if $type->check($value) |
|
218
|
0 |
7 |
if ($type->has_coercion) |
|
220
|
0 |
0 |
if $type->check($value) |
|
229
|
10 |
0 |
if ($VERBOSE) { } |