diff --git a/bin/echo.psgi b/bin/echo.psgi index 9ac91ec..5daa436 100755 --- 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), ],