Branch Coverage

blib/lib/Net/DNS/Packet.pm
Criterion Covered Total %
branch 72 72 100.0


line true false branch
62 11 199 if ref $arg[0]
72 176 23 if scalar @arg
119 14 182 if $length < 12
161 160 5 unless $offset == 12
162 4 1 unless $self->header->opcode eq "DSO"
173 2 194 if ($debug)
175 1 1 if $@
179 1 195 wantarray ? :
204 80 142 if $edns->_specified
206 1 221 if $size
251 269 453 unless $$link
252 198 524 unless $$link
272 1 6 if $qheadr->qr
287 5 1 unless grep {$_->isa("Net::DNS::RR::OPT");} @{$$query{"additional"};}
403 1 15 $server ? :
406 1 15 if ($opcode eq "DSO")
416 2 13 if $edns->_specified
418 1 14 $opcode eq 'UPDATE' ? :
421 5 10 $qdcount != 1 ? :
426 14 1 $ancount != 1 ? :
431 14 1 $nscount != 1 ? :
436 12 3 $arcount != 1 ? :
439 2 5 $_ eq $edns ? :
661 39 1 $sig ? :
666 24 1 $sig ? :
728 16 107 unless $sig
730 100 7 if /TSIG|SIG/
774 3 2 unless $size > 512
775 1 4 if $sigrr
786 3 105 if length($data) + length($component) > $size
787 1 104 if $tc
791 4 11 if scalar @list < scalar @$section
794 2 3 if $tc
802 121 24 unless $rrset{$key}
813 4 50 if length($data) + length($component) > $size
818 1 4 if ($sigrr)