The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Net::WebSocket::Frame::pong

SYNOPSIS

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

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

        payload => $payload,
    );

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

    $frm->is_control();   #1

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

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

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

Note that, as per RFC 6455, pong messages can have only up to 125 bytes in their payload.