| line |
true |
false |
branch |
|
67
|
2 |
2 |
if ($protocol ne 'HTTP/1.1') |
|
87
|
2 |
2 |
if ($method ne 'GET') |
|
99
|
5 |
19 |
if ($name eq 'sec-websocket-version') { } |
|
|
5 |
14 |
elsif ($name eq 'sec-websocket-key') { } |
|
|
1 |
13 |
elsif ($name eq 'sec-websocket-protocol') { } |
|
100
|
2 |
3 |
if ($value ne 13) |
|
107
|
1 |
4 |
unless ($value =~ m[\A[A-Za-z0-9/\+]{22}==\z]) |
|
117
|
2 |
1 |
unless (defined $self->{'_subprotocol'}) |
|
139
|
1 |
1 |
defined $self->{'_subprotocol'} ? : |
|
|
2 |
0 |
if $self->{'_no_use_legacy'} |
|
149
|
1 |
3 |
unless $self->{'_version_ok'} |
|
150
|
1 |
3 |
unless $self->{'key'} |
|
152
|
1 |
3 |
if (@needed) |