test/perl/streaming_body_multiple_responses/psgi.pl


1
2
3
4
5
6
7
8
9
10
11

my $counter = 2;

my $app = sub {
    my $env = shift;

    return sub {
        my $responder = shift;
        $responder->([200, ['Content-Type'=>'text/plain'], [$counter++]]);
        $responder->([200, ['Content-Type'=>'text/plain'], [$counter++]]);
    };
};