test/perl/errors_print/psgi.pl


1
2
3
4
5
6
7

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

    my $result = $environ->{'psgi.errors'}->print('Error in application');

    return ['200', ['Content-Length' => '1'], [$result]];
};