From 54a6366ad2a534346224ff970d4c62d2f2899868 Mon Sep 17 00:00:00 2001 From: franck cuny Date: Fri, 22 Jul 2011 13:52:07 +0200 Subject: debug string if defined Signed-off-by: franck cuny --- lib/Net/HTTP/Spore/Role/Request.pm | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'lib/Net') 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) ); } -- cgit 1.4.1