|
@@ -1,4 +1,4 @@
|
|
-# starman --workers N myapp.psgi
|
|
|
|
|
|
+# starman --workers N app.psgi
|
|
use v5.16;
|
|
use v5.16;
|
|
use Plack::Builder;
|
|
use Plack::Builder;
|
|
use Plack::Request;
|
|
use Plack::Request;
|
|
@@ -16,12 +16,12 @@ builder {
|
|
)->finalize },
|
|
)->finalize },
|
|
mount '/dbi' => sub {
|
|
mount '/dbi' => sub {
|
|
my $r = Plack::Request->new(shift);
|
|
my $r = Plack::Request->new(shift);
|
|
- $r->new_response( 200, $header, encode_json([
|
|
|
|
- map { id => $_->[0], randomnumber => $_->[1] },
|
|
|
|
- grep exists $_->[1],
|
|
|
|
- map [$_, $sth->execute($_) && $sth->fetchrow_array],
|
|
|
|
|
|
+ $r->new_response( 200, $header, encode_json([
|
|
|
|
+ map { id => $_->[0], randomnumber => $_->[1] },
|
|
|
|
+ grep exists $_->[1],
|
|
|
|
+ map [$_, $sth->execute($_) && $sth->fetchrow_array],
|
|
map int rand 10000 + 1,
|
|
map int rand 10000 + 1,
|
|
- 1..$r->param('queries')//1
|
|
|
|
|
|
+ 1..$r->param('queries')//1
|
|
]) )->finalize
|
|
]) )->finalize
|
|
}
|
|
}
|
|
};
|
|
};
|