| line |
true |
false |
branch |
|
106
|
101 |
145 |
if ($key eq 'payload' or $key eq 'payload_sr') { } |
|
|
84 |
61 |
elsif ($key eq 'fin') { } |
|
|
6 |
55 |
elsif ($key eq 'rsv') { } |
|
|
55 |
0 |
elsif ($key eq 'mask') { } |
|
107
|
42 |
59 |
if (not ref $_[0]) { } |
|
|
59 |
0 |
elsif ('SCALAR' eq ref $_[0]) { } |
|
108
|
42 |
0 |
if (defined $_[0]) { } |
|
141
|
19 |
84 |
unless (defined $fin) |
|
149
|
55 |
48 |
if (defined $mask) { } |
|
152
|
55 |
0 |
if (length $mask) |
|
162
|
64 |
39 |
if $fin |
|
164
|
5 |
98 |
if ($rsv) |
|
165
|
0 |
5 |
if $rsv > 7 |
|
191
|
64 |
52 |
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) |