File Coverage

blib/lib/Net/WebSocket/X/BadToken.pm

Criterion	Covered	Total	%
statement	13	13	100.0
branch	1	2	50.0
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	18	19	94.7

package Net::WebSocket::X::BadToken;

use strict;
use warnings;

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

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

    my $disp_val = $badtoken;
    $disp_val = q<> if !defined $disp_val;

    return $class->SUPER::_new(
        "“$disp_val” is not a valid HTTP token.",
    );
}

1;