Permalink
Fetching contributors…
Cannot retrieve contributors at this time
executable file 17 lines (16 sloc) 427 Bytes
#!perl
#
# Compare and contrast to app.psgi
#
my $counter = 0;
sub {
my $r = shift;
my $n = $counter++;
# loading the env is optional under Feersum. For a "fair" speed
# comparison to app.psgi, uncomment this line:
# my $env = $r->env();
$r->send_response(200, [
'Content-Type' => 'text/plain',
'Connection' => 'close',
], [\"Hello customer number 0x",sprintf('%08x',$n),\"\n"]);
};