Branch Coverage

blib/lib/Net/Frame/Layer/ICMPv6.pm
Criterion Covered Total %
branch 2 74 2.7


line true false branch
133 0 0 if ($sType eq 128 and $wType eq 129) { }
0 0 elsif ($sType eq 135 and $wType eq 136) { }
0 0 elsif ($sType eq 133 and $wType eq 134) { }
0 0 elsif ($sType eq 130 and $wType eq 131 || $wType eq 143) { }
158 0 1 unless my $raw = $self->SUPER::pack('CCn', $self->type, $self->code, $self->checksum)
168 0 1 unless my($type, $code, $checksum, $payload) = $self->SUPER::unpack('CCn a*', $self->raw)
195 0 0 if (not $ip and $l->layer eq 'IPv6')
196 0 0 if (not $rh0 and $l->layer eq 'IPv6::Routing')
197 0 0 if (not $hbh and $l->layer eq 'IPv6::HopByHop')
198 0 0 if (not $dst and $l->layer eq 'IPv6::Destination')
199 0 0 if (not $mob and $l->layer eq 'IPv6::Mobility')
201 0 0 if ($l->can('nextHeader'))
203 0 0 if ($l->layer eq 'IPv6::Fragment')
206 0 0 unless ($start)
207 0 0 if $l->layer eq 'ICMPv6'
217 0 0 if ($rh0 and $rh0->segmentsLeft != 0)
225 0 0 if ($fragmentFlag)
228 0 0 if ($hbh)
231 0 0 if ($dst)
234 0 0 if ($mob)
243 0 0 unless my $packed = $self->SUPER::pack('a*a*NNCCn', inet6Aton($ip->src), inet6Aton($lastIpDst), $ipPayloadLength, $v32->to_Dec, $self->type, $self->code, 0)
248 0 0 if (defined $last->payload and length $last->payload)
251 0 0 if (length $payload)
252 0 0 unless $packed .= $self->SUPER::pack('a*', $payload)
264 0 0 if $self->nextLayer
266 0 0 if ($self->payload)
271 0 0 if ($type eq 128 or $type eq 129) { }
0 0 elsif ($type eq 135) { }
0 0 elsif ($type eq 136) { }
0 0 elsif ($type eq 133) { }
0 0 elsif ($type eq 134) { }
0 0 elsif ($type eq 1) { }
0 0 elsif ($type eq 3) { }
0 0 elsif ($type eq 2) { }
0 0 elsif ($type eq 4) { }
0 0 elsif ($type eq 130 or $type eq 131 or $type eq 132) { }
0 0 elsif ($type eq 143) { }