| blib/lib/Net/DNS/RR/OPT.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 32 | 32 | 100.0 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 227 | 42 | 1 | 1 | defined $length and $length == 0 |
| 234 | 3 | 1 | 34 | length $arg and $package->can("_compose") |
| line | l | !l | condition |
|---|---|---|---|
| 59 | 5 | 95 | $self->{'option'} || {} |
| 144 | 5 | 119 | $self->{'version'} || 0 |
| 151 | 219 | 90 | $self->{'udpsize'} || 0 |
| 164 | 11 | 668 | $self->{'rcode'} || 0 |
| 171 | 24 | 126 | $self->{'flags'} || 0 |
| 177 | 9 | 100 | $self->{'option'} || {} |
| 196 | 85 | 1 | $self->{'option'} || {} |
| 215 | 65 | 5 | $self->{'option'} || {} |
| 329 | 3 | 1 | $family{$argument{'FAMILY'}} || die('unrecognised address family') |
| 338 | 3 | 1 | $family{$object{'FAMILY'}} || die('unrecognised address family') |
| 370 | 3 | 2 | $_ || '' |
| 397 | 4 | 1 | pop @argument || 0 |
| 436 | 4 | 2 | $arg{'EXTRA-TEXT'} || '' |