| blib/lib/Net/DNS/RR/OPT.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 32 | 32 | 100.0 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 236 | 50 | 1 | 2 | defined $length and $length == 0 |
| 243 | 4 | 1 | 38 | length $arg and $package->can("_compose") |
| line | l | !l | condition |
|---|---|---|---|
| 55 | 6 | 58 | $self->{'option'} || {} |
| 145 | 5 | 85 | $self->{'version'} || 0 |
| 152 | 137 | 87 | $self->{'udpsize'} || 0 |
| 165 | 11 | 495 | $self->{'rcode'} || 0 |
| 172 | 26 | 302 | $self->{'flags'} || 0 |
| 178 | 11 | 63 | $self->{'option'} || {} |
| 197 | 102 | 1 | $self->{'option'} || {} |
| 223 | 78 | 5 | $self->{'option'} || {} |
| 337 | 3 | 1 | $family{$argument{'FAMILY'}} || die('unrecognised address family') |
| 346 | 3 | 1 | $family{$object{'FAMILY'}} || die('unrecognised address family') |
| 378 | 3 | 2 | $_ || '' |
| 405 | 4 | 1 | pop @argument || 0 |
| 444 | 4 | 2 | $arg{'EXTRA-TEXT'} || '' |