File Coverage

blib/lib/Net/WebSocket/Frame/pong.pm

Criterion	Covered	Total	%
statement	14	14	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod	0	1	0.0
total	19	20	95.0

package Net::WebSocket::Frame::pong;

=encoding utf-8

=head1

Net::WebSocket::Frame::pong

=head1 SYNOPSIS

    my $frm = Net::WebSocket::Frame::pong->new(

        #Optional, can be either empty (default) or four random bytes
        mask => q<>,

        payload_sr => \$payload,
    );

    $frm->get_type();           #"ping"

    $frm->is_control_frame();   #1

    my $mask = $frm->get_mask_bytes();

    my $payload = $frm->get_payload();

    my $serialized = $frm->to_bytes();

Note that, L,
pong messages can have only up to 125 bytes in their payload.

=cut

use strict;
use warnings;

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

use constant get_opcode => 10;

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

    return $class->SUPER::new( @opts, type => 'pong' );
}

1;