Branch Coverage

blib/lib/Net/WebSocket/Handshake/Client.pm
Criterion Covered Total %
branch 21 32 65.6


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')