From ebf98f6927b839015323733636a8e10e22ee6faa Mon Sep 17 00:00:00 2001 From: franck cuny Date: Thu, 3 Feb 2011 18:11:31 +0100 Subject: trying to finish the trace stuff .. --- lib/Net/HTTP/Spore/Role/Request.pm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'lib/Net/HTTP/Spore/Role/Request.pm') diff --git a/lib/Net/HTTP/Spore/Role/Request.pm b/lib/Net/HTTP/Spore/Role/Request.pm index 0af15f7..832549d 100644 --- a/lib/Net/HTTP/Spore/Role/Request.pm +++ b/lib/Net/HTTP/Spore/Role/Request.pm @@ -67,7 +67,11 @@ sub _execute_middlewares_on_response { sub _request { my ($self, $request) = @_; - my $result = $self->request($request->finalize); + my $req_final = $request->finalize(); + + $self->_trace_msg( $req_final->method . ' ' . $req_final->url ); + + my $result = $self->request($req_final); my $response = $request->new_response( $result->code, -- cgit v1.2.3