| blib/lib/Net/DNS/Async/Simple.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 7 | 12 | 58.3 |
| line | true | false | branch |
|---|---|---|---|
| 8 | 0 | 1 | unless my $list = shift() |
| 10 | 0 | 1 | if not ref $list or ref $list ne 'ARRAY' |
| 16 | 0 | 2 | unless ($response) |
| 21 | 0 | 2 | unless (scalar @answers) |
| 26 | 1 | 1 | if (ref $answer eq 'Net::DNS::RR::A') { } |
| 1 | 0 | elsif (ref $answer eq 'Net::DNS::RR::PTR') { } |