| line |
true |
false |
branch |
|
79
|
0 |
1 |
unless my $raw = $self->SUPER::pack('CC', $self->protocolType, $self->protocolLength) |
|
85
|
0 |
1 |
unless $raw .= $self->SUPER::pack("a$protocolLength n", $self->protocol, $self->addressLength) |
|
91
|
1 |
0 |
if ($self->protocol eq "\314") { } |
|
|
0 |
0 |
elsif ($self->protocol eq "\252\252\cC\000\000\000\206\335") { } |
|
92
|
0 |
1 |
unless $raw .= $self->SUPER::pack('a4', inetAton($self->address)) |
|
96
|
0 |
0 |
unless $raw .= $self->SUPER::pack('a16', inet6Aton($self->address)) |
|
100
|
0 |
0 |
unless $raw .= $self->SUPER::pack("a$addressLength", $self->address) |
|
111
|
0 |
1 |
unless my($protocolType, $protocolLength, $tail) = $self->SUPER::unpack('CC a*', $self->raw) |
|
119
|
0 |
1 |
unless ($protocol, $addressLength, $tail) = $self->SUPER::unpack("a$protocolLength n a*", $tail) |
|
127
|
1 |
0 |
if ($self->protocol eq "\314") { } |
|
|
0 |
0 |
elsif ($self->protocol eq "\252\252\cC\000\000\000\206\335") { } |
|
128
|
0 |
1 |
unless ($address, $payload) = $self->SUPER::unpack('a4 a*', $tail) |
|
133
|
0 |
0 |
unless ($address, $payload) = $self->SUPER::unpack('a16 a*', $tail) |
|
138
|
0 |
0 |
unless ($address, $payload) = $self->SUPER::unpack("a$addressLength a*", $tail) |
|
154
|
0 |
0 |
if ($self->protocol eq "\314") { } |
|
|
0 |
0 |
elsif ($self->protocol eq "\252\252\cC\000\000\000\206\335") { } |