| 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() ? : |