Branch Coverage

blib/lib/ParaDNS/Resolver.pm
Criterion Covered Total %
branch 14 72 19.4


line true false branch
20 1 0 unless ref $self
33 0 1 if ($servers) { }
36 0 0 unless $p
77 4 0 if $index > $#{$$self{'dst'};}
94 51 6 if (chr($ic) =~ /^[A-Za-z]\z/)
95 4 47 if ($have_rnd_bits < 1)
98 28 23 if $rnd & 1
123 4 0 unless my $query = 'ParaDNS::Resolver::Query'->new($self, $asker, $host, $type, $now, $id, $packet_data)
140 4 0 unless $self->_query($asker, $host, $type, $now)
167 0 0 unless $self->_query($asker, $host, 'A', $now)
184 0 0 if ($$obj{'timeout'} < $t0)
191 0 0 if $query->timeout
225 0 0 unless ($qobj)
233 0 0 unless ($question)
238 0 0 if ($question->qtype eq 'A' and $question->qname ne $query)
245 0 0 if (my $host_method = $type_to_host{$rr->type}) { }
0 0 elsif ($rr->type eq 'MX') { }
248 0 0 if ($rr->type eq 'CNAME' and $qobj->recurse_cname)
258 0 0 unless my $query = 'ParaDNS::Resolver::Query'->new($self, $qobj->asker, $host, $qobj->type, time, $id, $packet_data)
280 0 0 unless ($answers)
281 0 0 if ($err eq 'NXDOMAIN') { }
0 0 elsif ($err eq 'SERVFAIL') { }
0 0 elsif ($err eq 'NOERROR') { }
0 0 elsif ($err) { }
289 0 0 if $qobj->error($err)
298 0 0 if $qobj->error($err)
329 4 0 unless ref $self
337 4 0 unless $self->send_query
355 0 0 if ($$self{'type'} eq 'A' or $$self{'type'} eq 'AAAA')
356 0 0 if ($$self{'nqueries'} <= 10)
373 0 0 if ($self->send_query)
380 0 0 if ($$self{'nqueries'} <= 10 and $$self{'repeat'} > 1)
400 0 0 if ($self->send_query)
407 0 0 if ($$self{'nqueries'} <= 10 and $$self{'repeat'} > 1)
433 4 0 unless defined $dst
434 0 0 unless ($res->sock->send($$self{'data'}, 0, $dst))