| line |
true |
false |
branch |
|
13
|
3 |
90 |
unless defined $poss_domain |
|
14
|
5 |
85 |
if not length $poss_domain or length $poss_domain > 255 |
|
17
|
2 |
83 |
unless @labels |
|
20
|
81 |
2 |
length $labels[0] ? : |
|
24
|
14 |
380 |
if defined $why |
|
40
|
3 |
432 |
unless defined $poss_label |
|
41
|
13 |
419 |
if not length $poss_label or length $poss_label > 63 |
|
43
|
13 |
406 |
unless $poss_label =~ /\A[a-zA-Z0-9] # No hyphens at front
(?:[-a-zA-Z0-9]* # hyphens allowed in the middle
[a-zA-Z0-9])? # No hyphens at the end
\z/x |
|
63
|
2 |
218 |
unless defined $poss_part |
|
64
|
4 |
214 |
if not length $poss_part or length $poss_part > 64 |
|
66
|
32 |
182 |
unless $poss_part =~ /\A"(?:\\.|[!#-[\]-~])+"\z/ or $poss_part =~ m[\A[a-zA-Z0-9!#\$\%&'*+\-/=?^_`{|}~]+ # any 'atext' characters
(?:\. # separated by dots
[a-zA-Z0-9!#\$\%&'*+\-/=?^_`{|}~]+ # any 'atext' characters
)*
\z]x |
|
89
|
2 |
196 |
unless defined $poss_part |
|
90
|
4 |
192 |
if not length $poss_part or length $poss_part > 64 |
|
92
|
36 |
156 |
unless $poss_part =~ m[\A[a-zA-Z0-9!#\$\%&'*+\-/=?^_`{|}~]+ # any 'atext' characters
(?:\. # separated by dots
[a-zA-Z0-9!#\$\%&'*+\-/=?^_`{|}~]+ # any 'atext' characters
)*
\z]x |