Condition Coverage

blib/lib/Net/DNS/Packet.pm
Criterion Covered Total %
condition 21 21 100.0


or 2 conditions

line l !l condition
112 2 194 shift() || 0
560 418 2 $self->{$list} ||= []
628 31 1 eval { do { local $SIG{'__DIE__'}; require Net::DNS::RR::TSIG; my $tsig = 'Net::DNS::RR::TSIG'->create(@argument); $self->push('additional', $tsig); return $tsig } } || (return croak("$@\nTSIG: unable to sign packet"))
697 1 1 eval { do { local $SIG{'__DIE__'}; my $sig0; if (ref $karg eq 'Net::DNS::RR::SIG') { $sig0 = $karg; } else { require Net::DNS::RR::SIG; $sig0 = 'Net::DNS::RR::SIG'->create('', $karg); } ; $self->push('additional', $sig0); return $sig0 } } || (return croak("$@\nSIG0: unable to sign packet"))
771 3 2 shift() || 512
800 144 1 $item->{'class'} || 0
835 2 1 $Data::Dumper::Maxdepth || 3
836 2 1 $Data::Dumper::Sortkeys || 1
837 2 1 $Data::Dumper::Useqq || 1

or 3 conditions

line l !l&&r !l&&!r condition
559 418 1 1 $_section{unpack 'a3', $name} || $name