| blib/lib/Net/DNS/Method/Constant.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 10 | 14 | 71.4 |
| line | true | false | branch |
|---|---|---|---|
| 38 | 3 | 7 | if $q eq $d |
| 39 | 0 | 7 | if $pos == 0 and length $q <= length $d |
| 40 | 5 | 2 | if substr($q, $pos - 1, 1) eq '.' |
| 49 | 8 | 2 | if ($q->qclass eq $$self{'class'} and $q->qtype eq $$self{'type'} || $q->qtype eq 'ANY' and _match($q->qname, $$self{'zone'})) |
| 55 | 8 | 0 | if ($rr) |
| 79 | 0 | 1 | unless $sub eq uc $sub |
| 80 | 0 | 1 | if $sub eq 'DESTROY' |