File Coverage

blib/lib/PAGI/Context/HTTP.pm

Criterion	Covered	Total	%
statement	17	17	100.0
branch			n/a
condition	4	6	66.6
subroutine	7	7	100.0
pod	5	5	100.0
total	33	35	94.2

package PAGI::Context::HTTP;

use strict;
use warnings;

our @ISA = ('PAGI::Context');

=head1 NAME

PAGI::Context::HTTP - HTTP-specific context subclass

=head1 DESCRIPTION

Returned by C<< PAGI::Context->new(...) >> when C<< $scope->{type} >> is
C<'http'>. Adds lazy accessors for L and L,
plus an HTTP C accessor.

Inherits all shared methods from L.

=head1 METHODS

=head2 request

    my $req = $ctx->request;

Returns a L instance. Lazy-constructed and cached.

=head2 response

    my $res = $ctx->response;

Returns a L instance. Lazy-constructed and cached.

=head2 method

    my $method = $ctx->method;    # 'GET', 'POST', etc.

Returns the HTTP method from the scope.

=head2 req

    my $req = $ctx->req;

Alias for C.

=head2 resp

    my $res = $ctx->resp;

Alias for C.

=cut

sub request {
    my ($self) = @_;
    return $self->{_request} //= do {
        require PAGI::Request;
        PAGI::Request->new($self->{scope}, $self->{receive});
    };
}

sub response {
    my ($self) = @_;
    return $self->{_response} //= do {
        require PAGI::Response;
        PAGI::Response->new($self->{scope}, $self->{send});
    };
}

sub method { shift->{scope}{method} }

sub req  { shift->request }
sub resp { shift->response }

1;

__END__