| blib/lib/Net/DNS/Resolver/Programmable.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 11 | 16 | 68.7 |
| line | true | false | branch |
|---|---|---|---|
| 201 | 5 | 1 | unless ref $query |
| 213 | 0 | 6 | if (defined(my $resolver_code = $self->{'resolver_code'})) |
| 217 | 6 | 0 | if (not defined $result or defined $rcode{$result}) { } |
| 220 | 6 | 0 | unless defined $aa |
| 221 | 6 | 0 | unless defined $result |
| 223 | 6 | 0 | if (defined(my $records = $self->{'records'})) |
| 224 | 4 | 2 | if (ref(my $rrs_for_domain = $records->{$domain}) eq 'ARRAY') |
| 226 | 4 | 3 | if $rr->name eq $domain and $rr->type eq $rr_type and $rr->class eq $class |