package CW::Plack::Request;

use Moo;

has h => (
    is       => 'ro',
    required => 1
);

has _request => (
    is       => 'ro',
    init_arg => 'request',
    required => 1,
    handles  => [qw(env)]
);

sub new_response {
    my ( $self, @args ) = @_;
    my $response = $self->_request->new_response(@args);
    return CW::Plack::Response->new(
        request  => $self,
        response => $response,
        h        => $self->h
    );
}

1;