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

package Net::WebSocket::X::BadRequestProtocol;

use strict;
use warnings;

use Net::WebSocket::Constants ();

use parent qw( Net::WebSocket::X::Base );

sub _new {
    my ($class, $protocol) = @_;

    my $str = "Received invalid HTTP request protocol: $protocol";

    $str .= " - must be " . Net::WebSocket::Constants::REQUIRED_REQUEST_PROTOCOL();

    return $class->SUPER::_new(
        $str,
        protocol => $protocol,
    );
}

1;