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

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++]]);
    };
};