| line |
true |
false |
branch |
|
152
|
7 |
7 |
if ($is_iri) |
|
159
|
7 |
7 |
if ($is_iri) |
|
225
|
0 |
8 |
unless $r |
|
228
|
2 |
6 |
unless $r |
|
242
|
3 |
30 |
unless defined $_ |
|
247
|
0 |
10 |
if $@ |
|
250
|
0 |
10 |
unless $date2->year == $Y |
|
251
|
1 |
9 |
unless $date2->mon == $m |
|
252
|
0 |
9 |
unless $date2->mday == $d |
|
266
|
1 |
63 |
unless defined $_ |
|
269
|
1 |
20 |
if $H > 23 |
|
270
|
1 |
19 |
if $M > 59 |
|
271
|
1 |
18 |
if $S > 60 |
|
273
|
11 |
7 |
if ($HH and $MM) |
|
274
|
3 |
8 |
if $HH > 23 |
|
275
|
3 |
5 |
if $MM > 59 |
|
285
|
3 |
4 |
$_[0] =~ /$UUID_PATTERN/ ? : |
|
290
|
3 |
6 |
$_[0] =~ /$IPV4_FINAL_PATTERN/ ? : |
|
295
|
12 |
11 |
$_[0] =~ /$IPV6_FINAL_PATTERN/ ? : |
|
301
|
1 |
7 |
if length $hostname > 255 |
|
306
|
3 |
4 |
unless $hostname =~ /$HOSTNAME_PATTERN/ |
|
310
|
1 |
3 |
unless scalar @labels == scalar @filtered |
|
317
|
42 |
18 |
$_[0] =~ /$EMAIL_PATTERN/ ? : |
|
323
|
2 |
1 |
$_[0] =~ /$IDN_EIMAIL_PATTERN/ ? : |
|
327
|
6 |
11 |
if length($_[0]) % 4 != 0 |
|
328
|
8 |
3 |
if $_[0] =~ /$BASE64_PATTERN/ |
|
342
|
10 |
55 |
unless $num =~ /$INTEGER_PATTERN/ |
|
344
|
40 |
15 |
index($num, '-') == -1 ? : |
|
350
|
4 |
51 |
if $length_num > $length_abs |
|
351
|
39 |
12 |
if $length_num < $length_abs |
|
353
|
4 |
8 |
if $sign > 0 and ($abs . 7 cmp $num) >= 0 |
|
354
|
4 |
4 |
if $sign < 0 and ($abs . 8 cmp $num) >= 0 |
|
368
|
4 |
16 |
if $_[0] eq "" |
|
369
|
3 |
13 |
unless index($_[0], "/") == 0 |
|
370
|
4 |
9 |
if $_[0] =~ /~(?:[^01]|\z)/ |
|
383
|
0 |
11 |
unless defined $integer |
|
384
|
2 |
9 |
if $pointer eq "#" |
|
390
|
14 |
3 |
$_[0] =~ /$URI_PATTERN/ ? : |
|
395
|
19 |
1 |
$_[0] =~ /$URI_REFERENCE_PATTERN/ ? : |
|
400
|
3 |
2 |
$_[0] =~ /$IRI_PATTERN/ ? : |
|
405
|
2 |
1 |
$_[0] =~ /$IRI_REFERENCE_PATTERN/ ? : |
|
410
|
4 |
5 |
$_[0] =~ /$URI_TEMPLATE_PATTERN/ ? : |
|
417
|
3 |
20 |
if $_[0] =~ /\A\s+|\s+\z/ |
|
418
|
4 |
16 |
unless &looks_like_number($_[0]) |
|
428
|
7 |
2 |
eval {
do {
qr/$_[0]/
}
} ? : |