File Coverage

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

Criterion	Covered	Total	%
statement	14	14	100.0
branch	3	4	75.0
condition	2	3	66.6
subroutine	4	4	100.0
pod			n/a
total	23	25	92.0

package Net::WebSocket::X::BadHeader;

use strict;
use warnings;

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

sub _new {
    my ($class, $name => $value, $why) = @_;

    my @args = (
        name => $name,
        value => $value,
        why => $why,
    );

    my $value_str = defined($value) ? $value : q<>;

    #Perl 5.10 still warns on length(undef)
    my $str = defined($why) && length($why) ? "Bad “$name” header ($value_str): $why" : "Bad “$name” header ($value_str)";

    return $class->SUPER::_new( $str, @args );
}

1;