| line |
true |
false |
branch |
|
26
|
0 |
71 |
if ref $class |
|
29
|
3 |
68 |
if (@_ == 1) { } |
|
40
|
37 |
34 |
unless defined $buffer |
|
42
|
9 |
62 |
if (&Encode::is_utf8($buffer)) { } |
|
49
|
18 |
53 |
if (defined $self->{'type'} and defined $TYPES{$self->{'type'}}) |
|
58
|
60 |
11 |
unless exists $self->{'max_payload_size'} |
|
72
|
2 |
174 |
unless defined $_[0] |
|
75
|
161 |
13 |
unless &readonly($_[0]) |
|
84
|
14 |
13 |
unless defined $bytes |
|
93
|
158 |
32 |
defined $_[0]{'fin'} ? : |
|
|
157 |
190 |
@_ > 1 ? : |
|
95
|
157 |
0 |
@_ > 1 ? : |
|
101
|
78 |
20 |
defined $_[0]{'opcode'} ? : |
|
|
43 |
98 |
@_ > 1 ? : |
|
103
|
157 |
382 |
@_ > 1 ? : |
|
115
|
20 |
33 |
if ($self->version eq 'draft-hixie-75' or $self->version eq 'draft-ietf-hybi-00') |
|
118
|
1 |
19 |
if ($self->{'buffer'} =~ s/^\xff\x00//) |
|
123
|
9 |
10 |
unless $self->{'buffer'} =~ s/^[^\x00]*\x00(.*?)\xff//s |
|
128
|
5 |
28 |
unless length $self->{'buffer'} >= 2 |
|
150
|
1 |
156 |
if ($payload_len == 126) { } |
|
|
5 |
151 |
elsif ($payload_len > 126) { } |
|
151
|
0 |
1 |
unless length $self->{'buffer'} >= $offset + 2 |
|
158
|
0 |
5 |
unless length $self->{'buffer'} >= $offset + 4 |
|
168
|
0 |
5 |
if ($Protocol::WebSocket::Frame::Config{'ivsize'} <= 4 or $Protocol::WebSocket::Frame::Config{'longsize'} < 8 or $] < 5.01) { } |
|
179
|
2 |
155 |
if ($self->{'max_payload_size'} and $payload_len > $self->{'max_payload_size'}) |
|
187
|
6 |
149 |
if ($self->masked) |
|
188
|
0 |
6 |
unless length $self->{'buffer'} >= $offset + 4 |
|
194
|
0 |
155 |
if length $self->{'buffer'} < $offset + $payload_len |
|
198
|
6 |
149 |
if ($self->masked) |
|
205
|
1 |
154 |
if (@{$self->{'fragments'};} and $opcode & 8) |
|
210
|
21 |
133 |
if ($self->fin) { } |
|
211
|
4 |
17 |
if (@{$self->{'fragments'};}) { } |
|
224
|
5 |
128 |
unless (@{$self->{'fragments'};}) |
|
231
|
1 |
132 |
if @{$self->{'fragments'};} > $self->{'max_fragments_amount'} |
|
241
|
4 |
38 |
if ($self->version eq 'draft-hixie-75' or $self->version eq 'draft-ietf-hybi-00') |
|
244
|
1 |
3 |
if ($self->{'type'} and $self->{'type'} eq 'close') |
|
251
|
2 |
36 |
if ($self->{'max_payload_size'} and length $self->{'buffer'} > $self->{'max_payload_size'}) |
|
258
|
7 |
29 |
if ($self->{'rsv'} and ref $self->{'rsv'} eq 'ARRAY') |
|
266
|
33 |
3 |
$self->fin ? : |
|
269
|
29 |
7 |
if ($payload_len <= 125) { } |
|
|
1 |
6 |
elsif ($payload_len <= 65535) { } |
|
270
|
7 |
22 |
if $self->masked |
|
274
|
0 |
1 |
$self->masked ? : |
|
278
|
0 |
6 |
$self->masked ? : |
|
281
|
0 |
6 |
$Protocol::WebSocket::Frame::Config{'ivsize'} <= 4 ? : |
|
285
|
7 |
29 |
if ($self->masked) { } |