File Coverage

blib/lib/Protocol/HTTP2/Frame/Rst_stream.pm

Criterion	Covered	Total	%
statement	23	29	79.3
branch	2	4	50.0
condition			n/a
subroutine	6	6	100.0
pod	0	2	0.0
total	31	41	75.6

package Protocol::HTTP2::Frame::Rst_stream;
use strict;
use warnings;
use Protocol::HTTP2::Constants qw(const_name :flags :errors);
use Protocol::HTTP2::Trace qw(tracer);

sub decode {
    my ( $con, $buf_ref, $buf_offset, $length ) = @_;
    my $frame_ref = $con->decode_context->{frame};

    # RST_STREAM associated with stream
    if ( $frame_ref->{stream} == 0 ) {
        tracer->error("Received reset stream with stream id 0");
        $con->error(PROTOCOL_ERROR);
        return undef;
    }

    if ( $length != 4 ) {
        tracer->error("Received reset stream with invalid length $length");
        $con->error(FRAME_SIZE_ERROR);
        return undef;
    }

    my $code = unpack( 'N', substr( $$buf_ref, $buf_offset, 4 ) );

    tracer->debug( "Receive reset stream with error code "
          . const_name( "errors", $code )
          . "\n" );
    $con->stream_reset( $frame_ref->{stream}, $code );

    return $length;
}

sub encode {
    my ( $con, $flags_ref, $stream, $data ) = @_;
    $con->stream_reset( $stream, $data );
    return pack 'N', $data;
}

1;