| blib/lib/Net/DNS/Resolver/Recurse.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 30 | 30 | 100.0 |
| line | true | false | branch |
|---|---|---|---|
| 57 | 2 | 2 | unless scalar @argument |
| 96 | 4 | 12 | unless ($root) |
| 98 | 3 | 1 | scalar @hints ? : |
| 116 | 35 | 5 | if (my $iplist = $cache->{$ns}) { } |
| 120 | 1 | 4 | if substr(lc $ns, -length($apex)) eq $apex |
| 125 | 38 | 1 | if $reply = $self->SUPER::send($query) |
| 129 | 4 | 38 | unless $reply |
| 131 | 1 | 25 | if $self->{'recurse_depth'}++ > 50 |
| 134 | 24 | 1 | $zone eq $suffix ? : |
| 140 | 2 | 42 | unless $packet |
| 143 | 5 | 37 | unless scalar @auth |
| 146 | 7 | 9 | scalar @ans ? : |
| 16 | 21 | if $cache | |
| 159 | 4 | 17 | scalar @ans ? : |
| 195 | 9 | 33 | if $callback |