line |
true |
false |
branch |
87
|
3 |
19 |
unless (ref $uri) |
97
|
0 |
22 |
if ($uri->scheme ne 'ws' and $uri->scheme ne 'wss') |
103
|
20 |
2 |
unless defined $host |
104
|
20 |
2 |
unless defined $port |
108
|
0 |
22 |
unless ($fh) |
121
|
3 |
19 |
if ($self->subprotocol) |
138
|
0 |
0 |
if ($fatal) { } |
148
|
0 |
22 |
if ($handshake->error) { } |
|
22 |
0 |
elsif ($handshake->is_done) { } |
158
|
3 |
19 |
if ($self->subprotocol) |
161
|
2 |
1 |
if (defined $sb) { } |
163
|
1 |
1 |
unless ($subprotocol{$sb}) |
196
|
22 |
0 |
unless ($self->env_proxy) |
204
|
0 |
0 |
$scheme eq 'wss' ? : |
|
0 |
0 |
$scheme eq 'ws' ? : |
208
|
0 |
0 |
if (defined $connector->proxy_for($host, $port)) |