Branch Coverage

blib/lib/Net/Frame/Layer/TCP.pm
Criterion Covered Total %
branch 8 42 19.0


line true false branch
81 0 1 unless $self->[$__raw] = $self->SUPER::pack('nnNNnnnn', $self->[$__src], $self->[$__dst], $self->[$__seq], $self->[$__ack], $offX2Flags, $self->[$__win], $self->[$__checksum], $self->[$__urp])
92 0 1 if ($self->[$__options])
93 0 0 unless $self->[$__raw] = $self->[$__raw] . $self->SUPER::pack('a*', $self->[$__options])
105 0 1 if (length $self->[$__raw] < 20)
109 0 1 unless my($src, $dst, $seq, $ack, $offX2Flags, $win, $checksum, $urp, $payload) = $self->SUPER::unpack('nnNNnnnn a*', $self->[$__raw])
125 0 1 unless my($options, $payload2) = $self->SUPER::unpack('a' . $self->getOptionsLength . 'a*', $self->[$__payload])
135 0 1 $self->[$__off] ? :
141 0 1 $gLen > $hLen ? :
166 0 0 unless ($start)
167 0 0 if $l->layer eq 'TCP'
174 0 0 if (defined $last->payload and length $last->payload)
181 0 0 if ($l->layer eq 'IPv4') { }
0 0 elsif ($l->layer eq 'IPv6') { }
194 0 0 unless $phpkt .= $self->SUPER::pack('nnNNnnnn', $self->[$__src], $self->[$__dst], $self->[$__seq], $self->[$__ack], $offX2Flags, $self->[$__win], 0, $self->[$__urp])
199 0 0 if ($self->[$__options])
200 0 0 unless $phpkt .= $self->SUPER::pack('a*', $self->[$__options])
204 0 0 if (length $payload)
205 0 0 unless $phpkt .= $self->SUPER::pack('a*', $payload)
226 0 0 unless $with->[$__ack] == $self->[$__seq] + 1
252 0 1 if ($self->[$__options])
253 0 0 unless $buf .= sprintf("\n${l}: optionsLength:%d options:%s", $self->getOptionsLength, $self->SUPER::unpack('H*', $self->[$__options]))