test/perl/delayed_response/psgi.pl


1
2
3
4
5
6
7
8
9
10

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

    return sub {
        (my $responder = shift)->([200, [
            'Content-Type' => 'text/plain',
            'Content-Length' => '12'
        ], ["Hello World!"]]);
    }
};