23 lines
372 B
Perl
23 lines
372 B
Perl
package CW::Plack::Request;
|
|
|
|
use Moo;
|
|
|
|
has h => (
|
|
is => 'ro',
|
|
required => 1
|
|
);
|
|
|
|
has _request => (
|
|
is => 'ro',
|
|
init_arg => 'request',
|
|
required => 1
|
|
);
|
|
|
|
sub new_response {
|
|
my ( $self, @args ) = @_;
|
|
my $response = $self->_request->new_response(@args);
|
|
return CW::Plack::Response->new( response => $response, h => $self->h );
|
|
}
|
|
|
|
1;
|