Condition Coverage

blib/lib/Net/DNS/Resolver/Base.pm
Criterion Covered Total %
condition 80 80 100.0


and 3 conditions

line !l l&&!r l&&r condition
146 45 26 4 $ref and $ref ne "ARRAY"
376 1 10 2 $self->{'defnames'} && !($name =~ /[.:]/)
454 5 1 2 $self->{'tsig_rr'} and not $reply->verify($query)
527 100 1 2 $self->{'tsig_rr'} and not $reply->verify($query)
681 8 1 1 $self->{'tsig_rr'} and not $reply->verify($query)
695 1 122 6 $query and $header->id != $query->header->id

or 2 conditions

line l !l condition
128 84 9 $initial ||= [%$base]
168 7 3 $res_option{lc $name} || (return)
183 1 7 $ENV{'RES_OPTIONS'} || ''
341 26 3 shift() || (return @null)
366 175 313 shift() || (return $self->{'errorstring'})
375 11 2 shift @argument || '.'
380 10 3 $self->send($fqdn, @argument) || (return)
390 5 1 shift @argument || '.'
399 2 5 $self->send($fqname, @argument) || (next)
417 100 20 $self->_send_udp($packet, $packet_data) || (return)
440 10 2 $socket || (next)
476 105 16 $self->{'retrans'} || 1
477 105 16 $self->{'retry'} || 1
493 105 93 $self->_create_udp_socket($ns) || (next)
596 9 2 $self->_create_udp_socket($ip) || (next)
620 172 2 do { *$handle }->{'net_dns_bg'} ||= [time + $self->{'udp_timeout'}]
636 1 1 $self->_bgsend_tcp($query, $query->data) || (return)
773 9 2 $socket || (next)
801 42 1 shift() || (return)
834 59 1 $fragment || (last)
1061 174 81 +(shift())->{'udppacketsize'} || 0
1128 44 35 shift() || 0

or 3 conditions

line l !l&&r !l&&!r condition
284 759 701 14 _ipv4($ns) or _ipv6($ns)
309 132 7 179 scalar @ns or not defined wantarray
321 3 124 191 $self->{'prefer_v4'} or not scalar @ns6
322 6 20 292 $self->{'prefer_v6'} or not scalar @ns4
415 6 1 120 $self->{'usevc'} or length $packet_data > $self->_packetsz
557 6 1 9 $self->{'usevc'} or length $packet_data > $self->_packetsz