blib/lib/Net/DNS/DomainController/Discovery.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 20 | 22 | 95.4 |
line | true | false | branch |
---|---|---|---|
63 | 1 | 17 | unless @_ |
68 | 17 | 0 | if (defined $TestResolver) { } |
97 | 1 | 29 | unless ($rr) |
100 | 2 | 27 | if ($rr->type ne 'SRV') |
117 | 19 | 2 | if ($resp) { } |
132 | 1 | 29 | unless ($rr) |
135 | 3 | 26 | if ($rr->type ne 'A' and $rr->type ne 'AAAA') |
153 | 25 | 24 | if ($resp) { } |
167 | 0 | 25 | unless @_ |
168 | 2 | 23 | unless $_[0] |
169 | 4 | 19 | unless $_[0] =~ /\A\b((?=[a-z0-9-]{1,63}\.)(xn--)?[a-z0-9]+(-[a-z0-9]+)*\.)+[a-z]{2,63}\Z/ |