Branch Coverage

blib/lib/Net/Frame/Layer/DNS/RR.pm
Criterion Covered Total %
branch 5 36 13.8


line true false branch
66 0 0 if (length $self->name == 0) { }
78 0 1 if ($self->rdlength == 0 and length $self->rdata > 0)
82 0 1 unless $self->raw($self->SUPER::pack('H* nnNn a*', $name, $self->type, $self->class, $self->ttl, $self->rdlength, $self->rdata))
94 0 1 unless my($type, $class, $ttl, $rdlength, $payload) = $self->SUPER::unpack('nnNn a*', substr($self->raw, $ptr1))
112 0 1 if $self->nextLayer
114 0 1 if ($self->payload)
115 0 0 if ($self->rdlength == 0) { }
0 0 elsif ($self->type == 1) { }
0 0 elsif ($self->type == 28) { }
0 0 elsif ($self->type == 5) { }
0 0 elsif ($self->type == 13) { }
0 0 elsif ($self->type == 15) { }
0 0 elsif ($self->type == 2) { }
0 0 elsif ($self->type == 12) { }
0 0 elsif ($self->type == 6) { }
0 0 elsif ($self->type == 33) { }
0 0 elsif ($self->type == 16) { }
139 0 0 unless my $temp = $self->SUPER::pack('n a*', $self->rdlength, $self->payload)