line |
true |
false |
branch |
40
|
19488 |
27663 |
if (scalar @_ == 1) { } |
|
0 |
27663 |
elsif (@_ % 2) { } |
41
|
0 |
19488 |
unless defined $_[0] and ref $_[0] eq 'HASH' |
75
|
0 |
29916 |
unless $attrs |
77
|
0 |
29916 |
if ref $default and ref $default ne 'CODE' |
80
|
29916 |
0 |
unless ref $attrs eq 'ARRAY' |
84
|
0 |
29916 |
unless $attr =~ /^[a-zA-Z_]\w*$/ |
89
|
29916 |
0 |
if (defined $default) { } |
93
|
252991 |
1588 |
if (@_ == 1) |
94
|
233130 |
19861 |
if exists $_[0]{$attr} |
95
|
9564 |
10297 |
ref $default eq 'CODE' ? : |
111
|
0 |
0 |
if @_ == 1 |
136
|
0 |
1836 |
unless $attrs |
138
|
0 |
1836 |
if ref $default ne 'CODE' |
141
|
1836 |
0 |
unless ref $attrs eq 'ARRAY' |
145
|
0 |
1836 |
unless $attr =~ /^[a-zA-Z_]\w*$/ |
152
|
122886 |
0 |
if (@_ == 1) |
153
|
120833 |
2053 |
if exists $_[0]{$attr} |
188
|
4826 |
5806 |
'ARRAY' eq ref shift() ? : |
196
|
65322 |
0 |
&blessed(shift()) ? : |
202
|
92 |
564 |
'CODE' eq ref shift() ? : |
208
|
234 |
740 |
'HASH' eq ref shift() ? : |
214
|
0 |
0 |
'Validation::Class::Listing' eq ref shift() ? : |
220
|
11 |
1 |
'Validation::Class::Mapping' eq ref shift() ? : |
226
|
0 |
0 |
'prototype_registry'->has(shift()) ? : |
232
|
17 |
520 |
'REGEXP' eq uc ref shift() ? : |