Branch Coverage

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/