Tests: perl module.
This commit is contained in:
7
test/perl/errors_print/psgi.pl
Normal file
7
test/perl/errors_print/psgi.pl
Normal file
@@ -0,0 +1,7 @@
|
||||
my $app = sub {
|
||||
my ($environ) = @_;
|
||||
|
||||
my $result = $environ->{'psgi.errors'}->print('Error in application');
|
||||
|
||||
return ['200', ['Content-Length' => '1'], [$result]];
|
||||
};
|
||||
Reference in New Issue
Block a user