xref: /unit/test/perl/body_io_empty/psgi.pl (revision 544:c4bbb14c5bdb)
1use IO::Handle;
2
3my $app = sub {
4    my ($environ) = @_;
5
6    my $io = IO::Handle->new();
7
8    return ['200', [], $io];
9};
10