| line |
true |
false |
branch |
|
40
|
69 |
3 |
if $domain_name
|
|
42
|
69 |
3 |
if $name_ace
|
|
47
|
3 |
69 |
if (@name_segments > 1)
|
|
54
|
3 |
0 |
if ($domain_ace)
|
|
67
|
2 |
6 |
if ($domain =~ /\.?xn--/u) { }
|
|
92
|
42 |
38 |
if $thld
|
|
93
|
4 |
76 |
if ($tld =~ /^de$/u) { }
|
|
99
|
42 |
34 |
if $thld_zone_ace
|
|
106
|
10 |
70 |
if ($possible_thld and $possible_thld =~ /\A$tld_regex\z/u) { }
|
|
|
23 |
47 |
elsif ($possible_tld =~ /\A$tld_regex\z/u) { }
|
|
|
45 |
2 |
elsif ($tld_zone_ace =~ /\A$tld_regex\z/u) { }
|
|
121
|
14 |
31 |
if $thld
|
|
126
|
2 |
78 |
unless $zone
|
|
139
|
78 |
6 |
unless ($zone and $zone =~ /^(?:de|fr|pm|re|tf|wf|yt)$/u)
|
|
142
|
6 |
96 |
if not defined $segment or $segment eq ''
|
|
153
|
1 |
70 |
if &any(sub {
lc $_ ne nameprep(lc $_);
}
, @{$puny_decoded;})
|
|
195
|
146 |
6 |
if $name
|
|
196
|
46 |
106 |
if $prefix
|
|
208
|
6 |
4 |
if $test_encode eq $unencoded
|
|
214
|
0 |
6 |
unless $encoded =~ /xn--/u
|
|
220
|
0 |
6 |
if $encoded eq $test_decode
|