Branch Coverage

blib/lib/Net/Frame/Layer/UDP.pm
Criterion Covered Total %
branch 3 28 10.7


line true false branch
49 0 1 unless $self->[$__raw] = $self->SUPER::pack('nnnn', $self->[$__src], $self->[$__dst], $self->[$__length], $self->[$__checksum])
63 0 1 if (CORE::length $self->[$__raw] < 8)
67 0 1 unless my($src, $dst, $len, $checksum, $payload) = $self->SUPER::unpack('nnnn a*', $self->[$__raw])
94 0 0 unless ($start)
95 0 0 if $l->layer eq 'UDP'
101 0 0 if (defined $last->payload and CORE::length $last->payload)
116 0 0 if ($l->layer eq 'IPv4') { }
0 0 elsif ($l->layer eq 'IPv6') { }
127 0 0 unless $phpkt .= $self->SUPER::pack('nnnn', $self->[$__src], $self->[$__dst], $self->[$__length], 0)
136 0 0 unless ($start)
137 0 0 if $l->layer eq 'UDP'
143 0 0 if (defined $last->payload and CORE::length $last->payload)
147 0 0 if (CORE::length $payload)
148 0 0 unless $phpkt .= $self->SUPER::pack('a*', $payload)