| line |
true |
false |
branch |
|
11
|
0 |
0 |
unless ($$env{$t->{'_sock'}} and $$env{$t->{'_stream_check'}}) |
|
27
|
0 |
0 |
$env->{'HTTP_SEC_WEBSOCKET_KEY'} ? : |
|
|
0 |
0 |
$env->{'HTTP_SEC_WEBSOCKET_KEY1'} ? : |
|
30
|
0 |
0 |
if (exists $env->{'HTTP_SEC_WEBSOCKET_VERSION'}) |
|
32
|
0 |
0 |
if ($env->{'HTTP_SEC_WEBSOCKET_VERSION'} eq '13') { } |
|
40
|
0 |
0 |
$env->{'QUERY_STRING'} ? : |
|
42
|
0 |
0 |
if ($env->{'HTTP_X_FORWARDED_PROTO'} and $env->{'HTTP_X_FORWARDED_PROTO'} eq "https") |
|
45
|
0 |
0 |
unless ($self->parse($_[0])) |
|
55
|
0 |
0 |
$@ ? : |
|
62
|
0 |
0 |
if ($ping_rate < 0) |
|
66
|
0 |
0 |
if (not $response or $response ne "pong") |
|
72
|
0 |
0 |
if ($response) |
|
73
|
0 |
0 |
if ($response =~ /^invalid_(length|version|host|required_key)$/) { } |
|
83
|
0 |
0 |
if $@ |
|
84
|
0 |
0 |
if $cbs->{'disconnect'} |
|
85
|
0 |
0 |
if $cbs->{'close_delete'} |
|
95
|
0 |
0 |
if ($version eq 'draft-hixie-75' or $version eq 'draft-ietf-hybi-00') { } |
|
|
0 |
0 |
elsif ($version eq 'draft-ietf-hybi-10' or $version eq 'draft-ietf-hybi-17') { } |
|
96
|
0 |
0 |
unless defined $self->options->host |
|
98
|
0 |
0 |
if $self->options->secure |
|
101
|
0 |
0 |
if defined $self->options->port |
|
103
|
0 |
0 |
$self->options->origin ? : |
|
104
|
0 |
0 |
if not $self->options->origin and $self->options->secure |
|
105
|
0 |
0 |
if ($version eq 'draft-hixie-75') { } |
|
|
0 |
0 |
elsif ($version eq 'draft-ietf-hybi-00') { } |
|
106
|
0 |
0 |
if defined $self->options->subprotocol |
|
112
|
0 |
0 |
if defined $self->options->subprotocol |
|
119
|
0 |
0 |
unless defined $self->options->key |
|
126
|
0 |
0 |
if defined $self->options->subprotocol |
|
141
|
0 |
0 |
if ($length > 254 or $mask) { } |
|
146
|
0 |
0 |
if ($length > 256) { } |
|
163
|
0 |
0 |
unless (scalar @ENCODED) |
|
164
|
0 |
0 |
if scalar @{$self->next_frame ||= [];} |
|
168
|
0 |
0 |
unless $length |
|
176
|
0 |
0 |
if ($ENCODED[0] == 254) { } |
|
183
|
0 |
0 |
if scalar @ENCODED == $length |
|
185
|
0 |
0 |
if (scalar @ENCODED > $length) |
|
187
|
0 |
0 |
if $next eq "invalid_length" |
|
190
|
0 |
0 |
if scalar @ENCODED != $length |