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