Branch Coverage

blib/lib/ParaDNS.pm
Criterion Covered Total %
branch 15 58 25.8


line true false branch
51 0 4 if (XS_AVAILABLE) { }
52 0 0 if $RESOLVER{$$}
73 0 0 if ($t < $now)
95 0 4 if $client
97 4 0 unless ref $self
99 0 4 $options{'hosts'} ? :
100 0 4 $options{'nameservers'} ? :
109 0 4 if $$self{'nameservers'}
121 0 4 if (exists $cache{$type}{$host} and @{$cache{$type}{$host};} > 0 and $cache{$type}{$host}[0]{'timeout'} >= $now) { }
132 0 4 if (XS_AVAILABLE) { }
137 0 0 if ($type eq 'A' and $host =~ /^(\d+)\.(\d+)\.(\d+)\.(\d+)$/) { }
143 0 0 unless (defined $id)
145 0 0 if $client
151 4 0 unless ($resolver->query_type($self, $type, $host))
153 0 4 if $client
180 0 0 if (defined $ttl)
207 0 0 if ($$data{'status'} > 1)
208 0 0 if ($$data{'questions'}) { }
219 0 0 if exists $$self{'results'}{$host}
229 0 0 if ($$data{'questions'}[0]{'type'} eq 'PTR')
234 0 0 if (my $param = $type_to_host{$$answer{'type'}}) { }
0 0 elsif ($$answer{'type'} eq 'MX') { }
245 0 0 if (not $$self{'results'}{$query})
256 4 0 if ($num_hosts > keys %{$$self{'results'};})
259 0 4 if exists $$self{'results'}{$host}
260 0 4 if ($host =~ /^(\d+)\.(\d+)\.(\d+)\.(\d+)$/)
261 0 0 if exists $$self{'results'}{"$4.$3.$2.$1.in-addr.arpa"}
267 0 4 if $$self{'client'}
268 0 4 if ($$self{'finished'})