| line |
true |
false |
branch |
|
79
|
4 |
0 |
if (length $opts{'uri'}) |
|
83
|
0 |
4 |
unless ($opts{'uri_schema'} and grep {$_ eq $opts{'uri_schema'};} ('ws', 'wss', 'http', 'https')) |
|
87
|
0 |
4 |
unless (length $opts{'uri_auth'}) |
|
114
|
0 |
1 |
if ($code ne 101) |
|
156
|
2 |
0 |
if $received eq $should_be |
|
168
|
3 |
0 |
unless (defined $path and length $path) |
|
172
|
0 |
3 |
if (defined $self->{'uri_query'} and length $self->{'uri_query'}) |
|
192
|
1 |
2 |
$self->{'origin'} ? : |
|
200
|
0 |
2 |
unless $self->{'_accept_header_ok'} |
|
202
|
0 |
2 |
if (@needed) |
|
217
|
3 |
18 |
if ($name eq "sec-websocket-$hdr_part") |
|
218
|
0 |
3 |
if (exists $$self{"_got_$name"}) |
|
226
|
2 |
5 |
if ($name eq 'sec-websocket-accept') { } |
|
|
1 |
4 |
elsif ($name eq 'sec-websocket-protocol') { } |
|
231
|
0 |
1 |
unless (grep {$_ eq $value;} @{$$self{'subprotocols'};}) |
|
252
|
2 |
2 |
unless 'MIME::Base64'->can('encode') |