xref: /unit/test/perl/streaming_body/psgi.pl (revision 988:135c158bc73e)
1*988Szelenkov@nginx.commy $app = sub {
2*988Szelenkov@nginx.com    my ($environ) = @_;
3*988Szelenkov@nginx.com
4*988Szelenkov@nginx.com    return sub {
5*988Szelenkov@nginx.com      my $writer = (my $responder = shift)->([200, [
6*988Szelenkov@nginx.com          'Content-Type' => 'text/plain',
7*988Szelenkov@nginx.com          'Content-Length' => '12'
8*988Szelenkov@nginx.com      ]]);
9*988Szelenkov@nginx.com
10*988Szelenkov@nginx.com      $writer->write("Hello World!");
11*988Szelenkov@nginx.com      $writer->close;
12*988Szelenkov@nginx.com    };
13*988Szelenkov@nginx.com};
14