28 lines
470 B
Perl
28 lines
470 B
Perl
package CW::Plack::Request;
|
|
|
|
use Moo;
|
|
|
|
has h => (
|
|
is => 'ro',
|
|
required => 1
|
|
);
|
|
|
|
has _request => (
|
|
is => 'ro',
|
|
init_arg => 'request',
|
|
required => 1,
|
|
handles => [qw(env query_parameters)]
|
|
);
|
|
|
|
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;
|