Branch Coverage

blib/lib/Net/Frame/Layer/IPv4.pm
Criterion Covered Total %
branch 9 32 28.1


line true false branch
154 0 1 $self->[$__noFixLen] ? :
157 0 1 unless $self->[$__raw] = $self->SUPER::pack('CCa*nnCCna4a4', $v8->to_Dec, $self->[$__tos], $len, $self->[$__id], $v16->to_Dec, $self->[$__ttl], $self->[$__protocol], $self->[$__checksum], inetAton($self->[$__src]), inetAton($self->[$__dst]))
171 0 1 if ($self->[$__options])
172 0 0 unless $opt = $self->SUPER::pack('a*', $self->[$__options])
183 0 1 unless my($verHlen, $tos, $len, $id, $flagsOffset, $ttl, $proto, $cksum, $src, $dst, $payload) = $self->SUPER::unpack('CCnnnCCna4a4 a*', $self->[$__raw])
206 0 1 unless my($options, $payload2) = $self->SUPER::unpack('a' . $self->getOptionsLength . 'a*', $self->[$__payload])
218 1 0 $self->[$__hlen] > 0 ? :
224 0 0 $self->[$__length] > $gLen ? :
231 0 1 $gLen > $hLen ? :
239 0 0 if $self->[$__options]
246 0 0 unless ($start)
247 0 0 if $l->layer eq 'IPv4'
253 0 0 if (defined $last->payload)
267 0 0 if ($self->[$__checksum])
309 0 1 if $self->[$__nextLayer]
327 0 1 if ($self->[$__options])