Branch Coverage

blib/lib/Net/WebSocket/Handshake/Server.pm
Criterion Covered Total %
branch 15 22 68.1


line true false branch
70 0 1 if ($method ne 'GET')
82 1 5 if ($name eq 'sec-websocket-version') { }
1 4 elsif ($name eq 'sec-websocket-key') { }
1 3 elsif ($name eq 'sec-websocket-protocol') { }
83 0 1 if ($value ne 13)
96 2 1 unless (defined $self->{'_subprotocol'})
118 1 0 defined $self->{'_subprotocol'} ? :
1 0 if $self->{'_no_use_legacy'}
128 0 1 unless $self->{'_version_ok'}
129 0 1 unless $self->{'key'}
131 0 1 if @needed