Branch Coverage

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


line true false branch
62 5 192 if ref $arg[0]
72 169 23 if scalar @arg
117 14 156 if $length < 12
159 134 5 unless $offset == 12
160 4 1 unless $self->header->opcode eq "DSO"
171 2 168 if ($debug)
173 1 1 if $@
177 1 169 wantarray ? :
202 53 146 if $edns->_specified
204 1 198 if $size
248 241 385 unless $$link
249 193 433 unless $$link
269 1 6 if $qheadr->qr
284 5 1 unless grep {$_->isa("Net::DNS::RR::OPT");} @{$$query{"additional"};}
398 1 16 $header->qr ? :
401 1 16 $server ? :
404 1 16 if ($opcode eq "DSO")
414 2 14 if $edns->_specified
416 1 15 $opcode eq 'UPDATE' ? :
419 5 11 $qdcount != 1 ? :
424 15 1 $ancount != 1 ? :
429 15 1 $nscount != 1 ? :
434 13 3 $arcount != 1 ? :
437 2 5 $_ eq $edns ? :
660 38 1 $sig ? :
665 24 1 $sig ? :
727 16 106 unless $sig
729 99 7 if /TSIG|SIG/
773 3 2 unless $size > 512
774 1 4 if $sigrr
785 3 105 if length($data) + length($component) > $size
786 1 104 if $tc
790 4 11 if scalar @list < scalar @$section
793 2 3 if $tc
801 121 24 unless $rrset{$key}
812 4 50 if length($data) + length($component) > $size
817 1 4 if ($sigrr)
847 53 150 if $id
848 53 150 if defined $id
849 11 139 unless $limit--