Serialize request body.

pangyre · Aug 16, 2011 · d856100 · d856100
1 parent c94066e
commit d856100
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/bin/echo.psgi b/bin/echo.psgi
@@ -6,6 +6,9 @@ use Data::Dump;
 sub {
     my $req = Plack::Request->new(shift);
     my $body = Data::Dump::dump($req);
+    $body .= "\n\n-- \n" . $req->content . "\n"
+        if $req->content;
+
     return [ 200,
              [ "Content-Type" => "text/plain; charset=utf-8",
                "Content-Length" => length($body), ],