Browse Source

whitespaces cleanup

vividsnow 12 years ago
parent
commit
d2e4b7322d
1 changed files with 6 additions and 6 deletions
  1. 6 6
      plack/app.psgi

+ 6 - 6
plack/app.psgi

@@ -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
     }
     }
 };
 };