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