| blib/lib/Net/DNS/Extlang.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 23 | 35 | 65.7 |
| line | l | !l | condition |
|---|---|---|---|
| 339 | 0 | 0 | carp("Unimplemented field type Z[$quals] in $rrname") and return |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 148 | 0 | 0 | 116 | $rrname and $rrnum |
| 229 | 0 | 0 | 2 | $trname and $trno |
| 543 | 566 | 8 | 24 | $type eq 'X' and not $quals |
| 556 | 82 | 73 | 15 | $type =~ /I\d/ and $quals |
| 620 | 146 | 2 | 6 | $type eq 'X' and not $quals |
| line | l | !l | condition |
|---|---|---|---|
| 154 | 83 | 235 | $2 || '' |
| 219 | 2 | 0 | $res->query($name, 'TXT') || (return) |
| 315 | 60 | 0 | $rrr->{'comment'} || '' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 214 | 1 | 1 | 0 | $self->{'resolver'} ||= do { require Net::DNS::Resolver; 'Net::DNS::Resolver'->new } |
| 345 | 0 | 0 | 170 | not $name or exists $fields{$name} |
| 349 | 4 | 0 | 107 | $type eq 'T' or $type eq 'T6' |
| 543 | 36 | 305 | 293 | $type eq 'B64' or $type eq 'X' and not $quals |