1my $app = sub { 2 my ($environ) = @_; 3 4 my $len = int($environ->{'CONTENT_LENGTH'}); 5 $environ->{'psgi.input'}->read(my $body, $len); 6
| 1my $app = sub { 2 my ($environ) = @_; 3 4 my $len = int($environ->{'CONTENT_LENGTH'}); 5 $environ->{'psgi.input'}->read(my $body, $len); 6
|
| 7 my $version = join('', @{$environ->{'psgi.version'}}); 8
|
7 return ['200', [ 8 'Content-Type' => $environ->{'CONTENT_TYPE'}, 9 'Content-Length' => $len, 10 'Request-Method' => $environ->{'REQUEST_METHOD'}, 11 'Request-Uri' => $environ->{'REQUEST_URI'}, 12 'Http-Host' => $environ->{'HTTP_HOST'}, 13 'Server-Protocol' => $environ->{'SERVER_PROTOCOL'},
| 9 return ['200', [ 10 'Content-Type' => $environ->{'CONTENT_TYPE'}, 11 'Content-Length' => $len, 12 'Request-Method' => $environ->{'REQUEST_METHOD'}, 13 'Request-Uri' => $environ->{'REQUEST_URI'}, 14 'Http-Host' => $environ->{'HTTP_HOST'}, 15 'Server-Protocol' => $environ->{'SERVER_PROTOCOL'},
|
14 'Custom-Header' => $environ->{'HTTP_CUSTOM_HEADER'}
| 16 'Custom-Header' => $environ->{'HTTP_CUSTOM_HEADER'}, 17 'Psgi-Version' => $version, 18 'Psgi-Url-Scheme' => $environ->{'psgi.url_scheme'}, 19 'Psgi-Multithread' => $environ->{'psgi.multithread'}, 20 'Psgi-Multiprocess' => $environ->{'psgi.multiprocess'}, 21 'Psgi-Run-Once' => $environ->{'psgi.run_once'}, 22 'Psgi-Nonblocking' => $environ->{'psgi.nonblocking'}, 23 'Psgi-Streaming' => $environ->{'psgi.streaming'}
|
15 ], [$body]]; 16};
| 24 ], [$body]]; 25};
|