| line |
true |
false |
branch |
|
106
|
136 |
180 |
if ($key eq 'payload' or $key eq 'payload_sr') { } |
|
|
119 |
61 |
elsif ($key eq 'fin') { } |
|
|
6 |
55 |
elsif ($key eq 'rsv') { } |
|
|
55 |
0 |
elsif ($key eq 'mask') { } |
|
107
|
77 |
59 |
if (not ref $_[0]) { } |
|
|
59 |
0 |
elsif ('SCALAR' eq ref $_[0]) { } |
|
108
|
77 |
0 |
if (defined $_[0]) { } |
|
141
|
19 |
119 |
unless (defined $fin) |
|
149
|
55 |
83 |
if (defined $mask) { } |
|
152
|
55 |
0 |
if (length $mask) |
|
162
|
99 |
39 |
if $fin |
|
164
|
5 |
133 |
if ($rsv) |
|
165
|
0 |
5 |
if $rsv > 7 |
|
191
|
60 |
84 |
if (my $mask = $self->get_mask_bytes) |
|
218
|
10 |
0 |
if substr(${$_[0][0];}, 0, 1) & "\200" |
|
263
|
55 |
0 |
if (length $bytes) |
|
264
|
0 |
55 |
if (4 != length $bytes) |