summary refs log tree commit diff
diff options
context:
space:
mode:
authorfranck cuny <franck@lumberjaph.net>2011-07-22 13:52:07 +0200
committerfranck cuny <franck@lumberjaph.net>2011-07-26 13:21:02 +0200
commit54a6366ad2a534346224ff970d4c62d2f2899868 (patch)
treefd9f30bffdf0223b13e90f16a690e78679c13f0a
parentadd query_string to debug (diff)
downloadnet-http-spore-54a6366ad2a534346224ff970d4c62d2f2899868.tar.gz
debug string if defined
Signed-off-by: franck cuny <franck@lumberjaph.net>
-rw-r--r--lib/Net/HTTP/Spore/Role/Request.pm8
1 files changed, 6 insertions, 2 deletions
diff --git a/lib/Net/HTTP/Spore/Role/Request.pm b/lib/Net/HTTP/Spore/Role/Request.pm
index 0a958b9..9e24e30 100644
--- a/lib/Net/HTTP/Spore/Role/Request.pm
+++ b/lib/Net/HTTP/Spore/Role/Request.pm
@@ -88,9 +88,13 @@ sub _debug_request {
     my ( $self, $request, $finalized_request ) = @_;
     return unless $self->trace;
 
-    $self->_trace_msg( '> %s %s', $request->method, $request->path );
+    $self->_trace_msg( '> %s %s%s', $request->method, $request->script_name, $request->path );
     $self->_trace_msg( '> Host: %s', $request->host );
-    $self->_trace_msg( '> Query String: %s', $request->env->{QUERY_STRING});
+    $self->_trace_msg( '> Query String: %s', $request->env->{QUERY_STRING} )
+      if defined $request->env->{QUERY_STRING};
+    $self->_trace_msg( '> Content: %s', $request->content )
+      if defined $request->content;
+
     foreach my $key ( $request->headers->header_field_names ) {
         $self->_trace_msg( '> %s: %s', $key, $request->header($key) );
     }