| line |
true |
false |
branch |
|
40
|
19684 |
27968 |
if (scalar @_ == 1) { } |
|
|
0 |
27968 |
elsif (@_ % 2) { } |
|
41
|
0 |
19684 |
unless defined $_[0] and ref $_[0] eq "HASH" |
|
75
|
0 |
30193 |
unless $attrs |
|
77
|
0 |
30193 |
if ref $default and ref $default ne "CODE" |
|
80
|
30193 |
0 |
unless ref $attrs eq "ARRAY" |
|
84
|
0 |
30193 |
unless $attr =~ /^[a-zA-Z_]\w*$/ |
|
89
|
30193 |
0 |
if (defined $default) { } |
|
93
|
255210 |
1604 |
if (@_ == 1) |
|
94
|
233481 |
21729 |
if exists $_[0]{$attr} |
|
95
|
11274 |
10455 |
ref $default eq 'CODE' ? : |
|
111
|
0 |
0 |
if @_ == 1 |
|
136
|
0 |
1853 |
unless $attrs |
|
138
|
0 |
1853 |
if ref $default ne "CODE" |
|
141
|
1853 |
0 |
unless ref $attrs eq "ARRAY" |
|
145
|
0 |
1853 |
unless $attr =~ /^[a-zA-Z_]\w*$/ |
|
152
|
123934 |
0 |
if (@_ == 1) |
|
153
|
121850 |
2084 |
if exists $_[0]{$attr} |
|
188
|
4854 |
5834 |
'ARRAY' eq ref shift() ? : |
|
196
|
65916 |
0 |
&blessed(shift()) ? : |
|
202
|
92 |
564 |
'CODE' eq ref shift() ? : |
|
208
|
235 |
748 |
'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 |
525 |
'REGEXP' eq uc ref shift() ? : |