Branch Coverage

blib/lib/Net/Frame/Layer/ARP.pm
Criterion Covered Total %
branch 7 22 31.8


line true false branch
71 1 0 if $self->[$__src]
72 1 0 if $self->[$__dst]
80 0 0 if $self->[$__pType] == 34525
91 1 0 if ($self->[$__pType] == 2048) { }
92 0 1 unless $self->[$__raw] = $self->SUPER::pack('nnCCnH12a4H12a4', $self->[$__hType], $self->[$__pType], $self->[$__hSize], $self->[$__pSize], $self->[$__opCode], $srcMac, inetAton($self->[$__srcIp]), $dstMac, inetAton($self->[$__dstIp]))
106 0 0 unless $self->[$__raw] = $self->SUPER::pack('nnCCnH12a*H12a*', $self->[$__hType], $self->[$__pType], $self->[$__hSize], $self->[$__pSize], $self->[$__opCode], $srcMac, inet6Aton($self->[$__srcIp]), $dstMac, inet6Aton($self->[$__dstIp]))
125 0 1 unless my($hType, $pType, $tail) = $self->SUPER::unpack('nn a*', $self->[$__raw])
133 1 0 if ($pType == 2048) { }
134 0 1 unless ($hSize, $pSize, $opCode, $srcMac, $srcIp, $dstMac, $dstIp, $payload) = $self->SUPER::unpack('CCnH12a4H12a4 a*', $tail)
142 0 0 unless ($hSize, $pSize, $opCode, $srcMac, $srcIp, $dstMac, $dstIp, $payload) = $self->SUPER::unpack('CCnH12a16H12a16 a*', $tail)
168 0 0 if $self->[$__opCode] == 1 and $with->[$__opCode] == 2 and $with->[$__dst] eq $self->[$__src] and $with->[$__srcIp] eq $self->[$__dstIp]