Branch Coverage

blib/lib/Net/DNS/Question.pm
Criterion Covered Total %
branch 42 42 100.0


line true false branch
62 251 63 unless (exists $Net::DNS::Question::classbyname{$qclass})
63 7 244 if exists $Net::DNS::Question::classbyname{$qtype}
64 3 248 if $qtype =~ /CLASS/
66 140 174 unless (exists $Net::DNS::Question::typebyname{$qtype})
67 5 135 if exists $Net::DNS::Question::typebyname{$qclass}
68 2 138 if $qclass =~ /TYPE/
72 84 230 if (defined $qname and $qname =~ /:|\d$/)
73 82 2 if (my $reverse = _dns_addr($qname))
116 5 155 if length $$data < $next
119 137 18 wantarray ? :
267 1 84 unless m[^[a-fA-F0-9:./]+$]
272 22 62 if (m[^\d*[.\d]*\d(/\d+)?$])
274 13 9 unless $pfxlen
275 7 15 $pfxlen > 24 ? :
280 1 61 unless m[^[:\w]+:([.\w]*)(/\d+)?$]
282 1 60 if /^[:0]*:0*:[fF]{4}:[^:]+$/
283 1 3 unless $_
1 59 if /\./
286 340 28 /./ ? :
287 45 15 unless $pfxlen
288 40 20 $pfxlen > 124 ? :