File Coverage

blib/lib/Net/WebSocket/X/BadRequestProtocol.pm
Criterion Covered Total %
statement 16 16 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 21 21 100.0


line stmt bran cond sub pod time code
1             package Net::WebSocket::X::BadRequestProtocol;
2              
3 2     2   1160 use strict;
  2         7  
  2         73  
4 2     2   13 use warnings;
  2         4  
  2         55  
5              
6 2     2   10 use Net::WebSocket::Constants ();
  2         4  
  2         40  
7              
8 2     2   9 use parent qw( Net::WebSocket::X::Base );
  2         4  
  2         9  
9              
10             sub _new {
11 2     2   478 my ($class, $protocol) = @_;
12              
13 2         6 my $str = "Received invalid HTTP request protocol: $protocol";
14              
15 2         6 $str .= " - must be " . Net::WebSocket::Constants::REQUIRED_REQUEST_PROTOCOL();
16              
17 2         12 return $class->SUPER::_new(
18             $str,
19             protocol => $protocol,
20             );
21             }
22              
23             1;