| line |
true |
false |
branch |
|
52
|
79 |
33 |
if $class->can($attr->{'method'})
|
|
76
|
1 |
1 |
&any(sub {
$_ eq $v;
}
, @{$self->allowed;}) ? :
|
|
82
|
0 |
2 |
if defined $self->min_value and $v < $self->min_value
|
|
83
|
1 |
1 |
if defined $self->max_value and $v > $self->max_value
|
|
90
|
1 |
1 |
$v == $self->value ? :
|
|
|
2 |
1 |
if $self->isValidNumber($v) and $self->isValidNumber($self->value)
|
|
93
|
1 |
0 |
$v eq $self->value ? :
|
|
107
|
1 |
2 |
defined $_[1] && length $_[1] ? :
|
|
113
|
0 |
36 |
unless defined $pat
|
|
115
|
25 |
11 |
$v =~ / $pat /msx ? :
|
|
121
|
0 |
5 |
unless defined $type_name
|
|
125
|
1 |
0 |
if $_ =~ / not\ a\ known\ type\ constraint /mx
|
|
130
|
2 |
2 |
$type->check($v) ? :
|
|
142
|
6 |
8 |
(gethostbyname $_[1])[0] ? :
|
|
154
|
1 |
3 |
unless $self->isMatchingRegex($v, $pat)
|
|
155
|
0 |
3 |
unless int $v == $v
|
|
162
|
0 |
8 |
if defined $self->min_length and length $v < $self->min_length
|
|
163
|
2 |
6 |
if defined $self->max_length and length $v > $self->max_length
|
|
168
|
8 |
3 |
&looks_like_number($v) ? :
|
|
179
|
1 |
5 |
unless $self->isMatchingRegex($v, $pat)
|
|
183
|
1 |
4 |
unless $hours >= 0 and $hours <= 23
|
|
184
|
1 |
3 |
unless $minutes >= 0 and $minutes <= 59
|
|
186
|
1 |
2 |
unless defined $seconds
|
|
188
|
1 |
1 |
$seconds >= 0 && $seconds <= 59 ? :
|