| line |
true |
false |
branch |
|
38
|
3 |
19 |
unless isValidTld($id) |
|
42
|
1 |
9 |
if ($id =~ /\.(test)$/u and not $warned) |
|
73
|
48 |
243 |
unless $handle =~ /^[a-zA-Z0-9.-]*$/u |
|
75
|
3 |
240 |
if length $handle > 253 |
|
78
|
19 |
221 |
if scalar @labels < 2 |
|
81
|
16 |
496 |
unless length $l |
|
82
|
2 |
494 |
if length $l > 63 |
|
83
|
19 |
475 |
if $l =~ /^-|-$/u |
|
84
|
18 |
457 |
if $i == $#labels and not $l =~ /^[a-zA-Z]/u |
|
90
|
197 |
160 |
unless $handle =~ /^([a-zA-Z0-9]([a-zA-Z0-9-]{0,61}[a-zA-Z0-9])?\.)+[a-zA-Z]([a-zA-Z0-9-]{0,61}[a-zA-Z0-9])?$/u |
|
92
|
3 |
157 |
if length $handle > 253 |
|
111
|
0 |
0 |
if ($err =~ /Handle/u) |
|
121
|
3 |
160 |
if $handle =~ /$tld$/u |