File Coverage

blib/lib/Net/WebSocket/Base/ControlFrame.pm

Criterion	Covered	Total	%
statement	23	25	92.0
branch	1	2	50.0
condition			n/a
subroutine	8	8	100.0
pod	0	1	0.0
total	32	36	88.8

package Net::WebSocket::Base::ControlFrame;

use strict;
use warnings;

use parent qw(
    Net::WebSocket::Frame
);

use Net::WebSocket::X ();

use constant get_fin => 1;
use constant is_control => 1;

sub _assemble_length {
    my ($class, $payload_sr) = @_;

    if (length $$payload_sr > 125) {
        my $type = $class->get_type();

        die Net::WebSocket::X->create('ControlPayloadTooLong', $type, $$payload_sr);
    }

    return( chr(length $$payload_sr), q<> );
}

sub new {
    my ($class, @opts) = @_;

    return $class->SUPER::new(
        @opts,
        fin => 1,
    );
}

1;