| blib/lib/Protocol/WebSocket/Request.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 34 | 45 | 75.5 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 87 | 6 | 0 | 1 | $env->{'HTTP_X_FORWARDED_PROTO'} and $env->{'HTTP_X_FORWARDED_PROTO'} eq 'https' |
| 217 | 1 | 171 | 28 | not $self->{'finalized'} and $self->is_body || $self->is_done |
| 220 | 23 | 0 | 7 | $self->key1 and $self->key2 |
| 249 | 0 | 1 | 26 | $req and $resource_name |
| 1 | 1 | 25 | $req and $resource_name and $http | |
| 254 | 0 | 0 | 25 | $req eq 'GET' and $http eq 'HTTP/1.1' |
| 267 | 24 | 0 | 8 | $self->key1 and $self->key2 |
| 401 | 0 | 0 | 30 | $self->upgrade and lc $self->upgrade eq 'websocket' |
| line | l | !l | condition |
|---|---|---|---|
| 17 | 1 | 67 | $params{'headers'} || [] |
| 110 | 59 | 0 | $_[0]{'resource_name'} || '/' |
| 126 | 13 | 7 | $self->version || 'draft-ietf-hybi-17' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 157 | 2 | 7 | 11 | $version eq 'draft-ietf-hybi-10' or $version eq 'draft-ietf-hybi-17' |
| 217 | 2 | 28 | 169 | $self->is_body || $self->is_done |
| 293 | 0 | 18 | 0 | $self->{$name} ||= $self->_extract_number($self->$key) |
| 409 | 5 | 22 | 2 | $self->field('Sec-WebSocket-Origin') || $self->field('Origin') |
| 421 | 10 | 3 | 15 | $self->field('Sec-WebSocket-Protocol') || $self->field('WebSocket-Protocol') |