Branch Coverage

blib/lib/Net/Frame/Layer/VRRP.pm
Criterion Covered Total %
branch 5 26 19.2


line true false branch
94 0 1 unless my $raw = $self->SUPER::pack('CCCCCCn', $bvlist->to_Dec, $self->vrId, $self->priority, $self->countIp, $self->authType, $self->interval, $self->checksum)
108 0 1 unless $raw .= $self->SUPER::pack('a8', $self->authentication)
118 0 1 unless my($bv, $vrId, $priority, $countIp, $authType, $interval, $checksum, $payload) = $self->SUPER::unpack('CCCCCCn a*', $self->raw)
136 1 0 if (defined $payload and length $payload >= 4)
162 0 0 unless my $phpkt = $self->SUPER::pack('CCCCCCn', $bvlist->to_Dec, $self->vrId, $self->priority, $self->countIp, $self->authType, $self->interval, 0)
176 0 0 unless $phpkt .= $self->SUPER::pack('a8', $self->authentication)
185 0 0 unless ($start)
186 0 0 if $l->layer eq 'VRRP'
192 0 0 if (defined $last->payload and length $last->payload)
196 0 0 if (length $payload)
197 0 0 unless $phpkt .= $self->SUPER::pack('a*', $payload)
209 0 1 if $self->nextLayer
218 0 0 if (scalar $self->ipAddresses and $self->countIp == 0)