| line |
true |
false |
branch |
|
26
|
4 |
267 |
unless defined $value
|
|
27
|
7 |
260 |
if ref $value
|
|
42
|
2 |
7 |
if CORE::length $value > $max
|
|
54
|
3 |
3 |
if CORE::length $value < $min
|
|
66
|
4 |
2 |
if CORE::length $value != $length
|
|
79
|
2 |
2 |
unless defined $addr
|
|
92
|
3 |
3 |
unless defined $url and defined $url->scheme
|
|
104
|
2 |
3 |
unless $value =~ /\p{Emoji}/u
|
|
116
|
2 |
6 |
unless lc($value) =~ /^[0-9a-f]{8}-[0-9a-f]{4}-[0-9a-f]{4}-[0-9a-f]{4}-[0-9a-f]{12}$/u
|
|
128
|
2 |
2 |
unless $value =~ /^[0-9a-zA-Z_-]{21}$/u
|
|
140
|
2 |
2 |
unless $value =~ /^c[a-z0-9]{24}$/u
|
|
152
|
2 |
2 |
unless $value =~ /^[a-z0-9]{24,32}$/u
|
|
164
|
2 |
2 |
unless $value =~ /^[0-9A-HJKMNP-TV-Z]{26}$/u
|
|
176
|
2 |
2 |
unless $value =~ /$regex/u
|
|
188
|
2 |
4 |
unless index($value, $includes) != -1
|
|
200
|
2 |
3 |
unless index($value, $startWith) == 0
|
|
212
|
2 |
3 |
unless substr($value, -1 * CORE::length($endsWith)) eq $endsWith
|
|
227
|
12 |
4 |
if ($version eq "v4" or $version eq "any")
|
|
229
|
6 |
6 |
if (scalar @octets == 4)
|
|
231
|
3 |
21 |
unless $octet =~ /^\d+$/u and $octet >= 0 and $octet <= 255
|
|
235
|
2 |
7 |
if ($version eq "v4" and not $pass)
|
|
239
|
8 |
0 |
if (not $pass and $version eq 'v6' || $version eq 'any')
|
|
240
|
5 |
3 |
unless Net::IPv6Addr::is_ipv6($value)
|
|
281
|
4 |
23 |
unless $value =~ /^\d{4}-\d{2}-\d{2}$/u
|
|
282
|
3 |
20 |
unless eval {
|
|
298
|
3 |
15 |
unless $value =~ /$format_check/u
|
|
299
|
3 |
12 |
if ($value =~ /\.[0-9]+/u)
|
|
303
|
9 |
6 |
unless eval {
|
|
318
|
2 |
3 |
if ($offset)
|
|
325
|
12 |
34 |
unless $value =~ /$format_check/u
|
|
326
|
19 |
15 |
unless eval {
|
|
335
|
0 |
8 |
if ($precision < $min_precision)
|
|
349
|
3 |
2 |
unless eval {
|
|
361
|
2 |
2 |
unless $value =~ m[^[A-Za-z0-9+/]+={0,2}$]u
|