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