| blib/lib/Net/DNS/Async/Simple.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 13 | 20 | 65.0 |
| line | true | false | branch |
|---|---|---|---|
| 10 | 0 | 1 | unless my $list = shift() |
| 12 | 0 | 1 | if not ref $list or ref $list ne 'ARRAY' |
| 19 | 0 | 2 | unless ($response) |
| 24 | 0 | 2 | unless (scalar @answers) |
| 32 | 3 | 9 | if (ref $value) { } |
| 38 | 1 | 1 | if (ref $answer eq 'Net::DNS::RR::A') { } |
| 1 | 0 | elsif (ref $answer eq 'Net::DNS::RR::PTR') { } | |
| 54 | 2 | 0 | unless ($asyncs->{$nameServerKey}) |
| 56 | 1 | 1 | if ($item->{'nameServers'}) |
| 62 | 2 | 0 | if ($list->[$j]{'query'}[0] and $list->[$j]{'query'}[1]) |