psgi.pl « body_io_empty « perl « test - unit.git - Universal Web Application Server

summary refs log tree commit diff homepage

path: root/test/perl/body_io_empty/psgi.pl

blob: 0a203dec91ef6762483a6383d6e39e96bf00886c (plain) (blame)

use IO::Handle;

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

    my $io = IO::Handle->new();

    return ['200', [], $io];
};