| lib/Haineko/DNS.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 11 | 14 | 78.5 |
| line | true | false | branch |
|---|---|---|---|
| 36 | 16 | 0 | if exists $$self{$e} |
| 72 | 3 | 19 | if $type eq 'MX' |
| 81 | 7 | 19 | if ($type eq 'MX') { } |
| 94 | 0 | 20 | unless grep {$type eq $_;} @$DNSRR |
| 99 | 4 | 22 | unless ref $self->$type eq 'ARRAY' |
| 102 | 0 | 19 | if $$r{'exp'} < time |
| 109 | 14 | 6 | if scalar @$dnsr |