Branch Coverage

blib/lib/Net/DNS/Resolver/Programmable.pm
Criterion Covered Total %
branch 10 16 62.5


line true false branch
202 1 3 if (&Scalar::Util::blessed($_[0]) and $_[0]->isa('Net::DNS::Packet')) { }
218 0 4 if (defined(my $resolver_code = $self->{'resolver_code'}))
222 4 0 if (not defined $result or defined $rcode{$result}) { }
225 4 0 unless defined $aa
226 4 0 unless defined $result
228 4 0 if (defined(my $records = $self->{'records'}))
229 4 0 if (ref(my $rrs_for_domain = $records->{$domain}) eq 'ARRAY')
231 4 3 if $rr->name eq $domain and $rr->type eq $rr_type and $rr->class eq $class