xref: /unit/test/perl/body_io_fake/psgi.pl (revision 916)
1*916Szelenkov@nginx.comuse File::Basename;
2*916Szelenkov@nginx.comuse lib dirname (__FILE__);
3*916Szelenkov@nginx.comuse IOFake;
4*916Szelenkov@nginx.com
5*916Szelenkov@nginx.commy $app = sub {
6*916Szelenkov@nginx.com    my ($environ) = @_;
7*916Szelenkov@nginx.com
8*916Szelenkov@nginx.com    my $io = IOFake->new($environ->{'psgi.errors'});
9*916Szelenkov@nginx.com
10*916Szelenkov@nginx.com    return ['200', [ 'Content-Length' => '2' ], $io];
11*916Szelenkov@nginx.com};
12