summaryrefslogtreecommitdiffhomepage
path: root/test/perl/query_string/psgi.pl
blob: 87ecc368835da60d27f2969ebd6b2905c9e014f5 (plain) (blame)
1
2
3
4
5
6
7
8
my $app = sub {
    my ($environ) = @_;

    return ['200', [
        'Content-Length' => 0,
        'Query-String' => $environ->{'QUERY_STRING'}
    ], []];
};