| line |
true |
false |
branch |
|
51
|
0 |
0 |
if ($$h{'type'} eq 'IPv4') { } |
|
|
0 |
0 |
elsif ($$h{'type'} eq 'IPv6') { } |
|
52
|
0 |
0 |
unless $phpkt = $self->SUPER::pack('a4a4CCn', inetAton($$h{'src'}), inetAton($$h{'dst'}), 0, 17, $self->getLength) |
|
57
|
0 |
0 |
unless $phpkt = $self->SUPER::pack('a*a*NnCC', inet6Aton($$h{'src'}), inet6Aton($$h{'dst'}), $self->getLength, 0, 0, 17) |
|
63
|
0 |
0 |
unless $phpkt .= $self->SUPER::pack('nnnn', $self->src, $self->dst, $self->getLength, 0) |
|
67
|
0 |
0 |
if ($self->payload) |
|
68
|
0 |
0 |
unless $phpkt .= $self->SUPER::pack('a*', $self->payload) |
|
80
|
0 |
1 |
unless my $raw = $self->SUPER::pack('nnnn', $self->src, $self->dst, $self->coverage, $self->checksum) |
|
93
|
0 |
1 |
unless my($src, $dst, $coverage, $checksum, $payload) = $self->SUPER::unpack('nnnn a*', $self->raw) |