Lines 54-61
sub register {
Link Here
|
54 |
sub _psgi_env { |
54 |
sub _psgi_env { |
55 |
my ($self, $c) = @_; |
55 |
my ($self, $c) = @_; |
56 |
|
56 |
|
|
|
57 |
my $env = $c->req->env; |
58 |
|
57 |
my $body = $c->req->body; |
59 |
my $body = $c->req->body; |
58 |
my $env = { |
60 |
$env = { |
|
|
61 |
%$env, |
59 |
'psgi.input' => IO::Scalar->new(\$body), |
62 |
'psgi.input' => IO::Scalar->new(\$body), |
60 |
'psgi.errors' => *STDERR, |
63 |
'psgi.errors' => *STDERR, |
61 |
REQUEST_METHOD => $c->req->method, |
64 |
REQUEST_METHOD => $c->req->method, |