Branch Coverage

blib/lib/Net/Inspect/L7/HTTP/WebSocket.pm
Criterion Covered Total %
branch 88 142 61.9


line true false branch
17 0 1 if (@$wskey > 1)
19 0 0 $x{$_}++ ? :
23 0 1 unless @$wskey
24 0 1 if @$wskey > 1
26 0 1 if $req->{'method'} ne 'GET'
28 0 1 unless $v
30 0 1 if grep {$_ ne '13';} @$v
34 0 1 if (@$wsa > 1)
36 0 0 $x{$_}++ ? :
38 0 1 unless @$wsa
39 0 1 if @$wsa > 1
45 0 1 if (@$wsa != 1 or $wsa->[0] ne &sha1_base64($wskey->[0] . '258EAFA5-E914-47DA-95CA-C5AB0DC85B11') . '=')
69 5 13 if (ref $data)
70 0 5 if $data->[0] ne 'gap'
72 0 5 unless (defined $clen)
76 0 5 if (not $data_frame or $current_frame != $data_frame)
82 0 5 if ($clen == 0) { }
0 5 elsif ($gap > $clen) { }
83 0 0 unless ($clenhi)
105 0 0 unless ($clen or $clenhi)
107 0 0 $data_frame->{'fin'} ? :
111 5 0 if (defined $clen) { }
117 0 5 if ($eom) { }
133 10 11 if (defined $clen)
135 0 1 if (not $size and $clen || $clenhi and $eof)
142 0 9 if ($clen == 0) { }
0 9 elsif ($size > $clen) { }
143 0 0 unless $clenhi
159 8 0 unless ($clen or $clenhi)
161 2 6 $current_frame->{'fin'} ? :
164 6 4 if ($data_frame and $current_frame == $data_frame) { }
165 2 4 if (defined $clen) { }
171 2 4 if ($eom) { }
177 2 2 if defined $clen
183 0 4 if defined $clen
185 2 2 if ($current_frame->{'opcode'} == 8)
187 0 2 if ($fwd eq '') { }
0 2 elsif (length $fwd < 2) { }
200 10 0 unless $size
206 2 9 if $eof
207 0 9 if length $rbuf < 2
215 1 8 if ($clen == 126) { }
2 6 elsif ($clen == 127) { }
216 0 1 if length $rbuf < 4
218 0 1 if $clen < 126
221 0 2 if length $rbuf < 10
223 0 2 if not $clenhi and $clen < 65536
226 7 2 if ($mask) { }
227 1 6 if length $rbuf < $off + 4
236 0 8 if $flags & 112
238 4 4 if ($opcode >= 8) { }
2 2 elsif ($opcode > 0) { }
240 0 4 if $opcode >= 11
241 0 4 unless ($fin)
245 0 4 if ($clenhi or $clen > 125)
251 0 4 if $off + $clen > length $rbuf
255 3 1 defined $mask ? :
259 2 2 if $opcode == 8
263 0 2 if $opcode >= 3
264 0 2 if ($got_close)
268 0 2 if ($data_frame)
274 1 1 $fin ? :
1 1 defined $mask ? :
283 0 2 unless ($data_frame)
290 1 1 $fin ? :
2 0 defined $mask ? :
307 2 10 if ($eof) { }
2 8 elsif (defined $clen) { }
316 2 0 !$clenhi ? :
2 0 if $clen > 0
349 3 8 if $data eq '' or not $self->{'mask'}