test/perl/input_copy/psgi.pl


1
2
3
4
5
6
7
8
9
10

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

    open(my $fh, ">&", $environ->{'psgi.input'});

    my $len = int($environ->{'CONTENT_LENGTH'});
    $fh->read(my $body, $len);

    return ['200', ['Content-Length' => $len], [$body]];
};