| line |
true |
false |
branch |
|
32
|
16 |
45 |
unless $bits |
|
37
|
40 |
5 |
unless ($opt->{'domain_allow_single_label'}) |
|
40
|
9 |
31 |
if @{$bits;} < 2 |
|
43
|
1 |
35 |
if $opt->{'domain_disable_tld_validation'} |
|
47
|
13 |
22 |
if (exists $opt->{'domain_private_tld'} and ref $opt->{'domain_private_tld'}) |
|
50
|
8 |
5 |
if (ref $opt->{'domain_private_tld'} eq 'HASH') { } |
|
51
|
6 |
2 |
if (exists $opt->{'domain_private_tld'}{$lc_tld}) |
|
56
|
3 |
2 |
if ($tld =~ /$opt->{'domain_private_tld'}/) |
|
63
|
7 |
19 |
unless tld_exists($tld) |
|
83
|
2 |
70 |
unless defined $value |
|
94
|
6 |
64 |
$value =~ s/\.\z// ? : |
|
96
|
6 |
64 |
$trailing_dot ? : |
|
98
|
4 |
66 |
if $encoded_length > 255 |
|
103
|
12 |
104 |
unless defined $bit |
|
107
|
3 |
51 |
unless @bits |
|
115
|
1 |
127 |
unless defined $value |
|
118
|
1 |
126 |
if $value =~ /\n/ |
|
121
|
0 |
126 |
if $value =~ /\./ |
|
124
|
8 |
118 |
if ($length == 1) { } |
|
|
114 |
4 |
elsif ($length > 1 and $length <= 63) { } |
|
125
|
0 |
8 |
if ($opt->{'domain_allow_underscore'}) { } |
|
133
|
9 |
105 |
if ($opt->{'domain_allow_underscore'}) { } |
|
149
|
15 |
185 |
if (ref $_[0]) { } |
|
153
|
123 |
62 |
defined $_[1] ? : |