| line |
true |
false |
branch |
|
28
|
27 |
19 |
ref $rule eq 'ARRAY' ? : |
|
31
|
46 |
0 |
if ($self->can($method)) |
|
33
|
11 |
35 |
if ($error) |
|
51
|
0 |
0 |
unless ($self->is_valid) |
|
69
|
3 |
5 |
unless defined $value and $value ne "" |
|
76
|
5 |
7 |
unless defined $value |
|
78
|
3 |
4 |
if ($value =~ /^\d+$/u) { } |
|
79
|
1 |
2 |
if $value < $min |
|
81
|
2 |
2 |
if length $value < $min |
|
90
|
5 |
5 |
unless defined $value |
|
92
|
3 |
2 |
if ($value =~ /^\d+$/u) { } |
|
93
|
1 |
2 |
if $value > $max |
|
95
|
0 |
2 |
if length $value > $max |
|
104
|
2 |
4 |
unless defined $value |
|
106
|
1 |
3 |
unless $value =~ /^[^\s\@]+\@[^\s\@]+\.[^\s\@]+$/u |
|
113
|
0 |
0 |
unless defined $value |
|
115
|
0 |
0 |
unless $value =~ /$pattern/u |
|
122
|
0 |
2 |
unless defined $value |
|
125
|
1 |
1 |
unless grep {$_ eq $value;} @allowed |
|
133
|
2 |
3 |
unless defined $value |
|
135
|
0 |
3 |
unless $value =~ /^-?\d+\.?\d*$/u |
|
142
|
0 |
0 |
unless defined $value |
|
144
|
0 |
0 |
unless $value =~ /^-?\d+$/u |
|
151
|
0 |
0 |
unless defined $value |
|
153
|
0 |
0 |
unless $value =~ m[^https?://[^\s/$.?#].[^\s]*$]iu |
|
162
|
0 |
3 |
unless defined $value |
|
165
|
2 |
1 |
if $result |