test/perl/body_io_fake/psgi.pl


1
2
3
4
5
6
7
8
9
10
11

use File::Basename;
use lib dirname (__FILE__);
use IOFake;

my $app = sub {
    my ($environ) = @_;

    my $io = IOFake->new($environ->{'psgi.errors'});

    return ['200', [ 'Content-Length' => '2' ], $io];
};