File Coverage

blib/lib/Net/WebSocket/X/UnsupportedProtocolVersion.pm
Criterion Covered Total %
statement 13 13 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 17 17 100.0


line stmt bran cond sub pod time code
1             package Net::WebSocket::X::UnsupportedProtocolVersion;
2              
3 2     2   1097 use strict;
  2         6  
  2         61  
4 2     2   11 use warnings;
  2         5  
  2         59  
5              
6 2     2   10 use parent qw( Net::WebSocket::X::Base );
  2         6  
  2         10  
7              
8             sub _new {
9 2     2   463 my ($class, $version) = @_;
10              
11 2         8 my $str = "Received invalid WebSocket version in handshake: $version";
12              
13 2         5 $str .= " - must be " . Net::WebSocket::Constants::PROTOCOL_VERSION();
14              
15 2         12 return $class->SUPER::_new(
16             $str,
17             version => $version,
18             );
19             }
20              
21             1;