| line |
l |
!l&&r |
!l&&!r |
condition |
|
178
|
0 |
0 |
0 |
$label =~ /^-/ or $label =~ /-$/ |
|
|
0 |
0 |
0 |
$label =~ /^-/ or $label =~ /-$/ or $label =~ /[\x00-\x2C\x2E-\x2F\x3A-\x40\x5B-\x60\x7B-\x7F]/ |
|
198
|
0 |
0 |
0 |
eval {
do {
if ($label =~ /[^\x00-\x7F]/) {
$label = Net::IDN::Nameprep::nameprep($label);
} ;
my $save3 = $label;
die unless $label =~ s/^$IDNA_prefix//;
$label = Net::IDN::Punycode::decode_punycode($label);
my $save6 = _to_ascii($label, %param);
die unless uc $save6 eq uc $save3;
$label
}
} || $orig |
|
240
|
0 |
0 |
0 |
$domain || $domain_literal |
|
|
0 |
0 |
0 |
$domain || $domain_literal |