summaryrefslogtreecommitdiffhomepage
path: root/test/perl/delayed_response/psgi.pl
blob: f934c3a76d073c1eef93ea6d17c1991accb48a2f (plain) (blame)
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!"]]);
    }
};