diff options
Diffstat (limited to '')
| -rw-r--r-- | lib/Net/HTTP/Spore/Role/Request.pm | 8 |
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) ); } |