From 2389782526e6c35589bb4d9bbadea78559ac1eda Mon Sep 17 00:00:00 2001
From: franck cuny <franck@lumberjaph.net>
Date: Tue, 26 Oct 2010 17:35:08 +0200
Subject: add role to trace

---
 lib/Net/HTTP/Spore/Role/Request.pm | 7 ++++++-
 1 file changed, 6 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 ddd52e6..7fbb290 100644
--- a/lib/Net/HTTP/Spore/Role/Request.pm
+++ b/lib/Net/HTTP/Spore/Role/Request.pm
@@ -38,7 +38,10 @@ sub http_request {
         return $response;
     }
 
-    my $result = $self->request($request->finalize);
+    my $final = $request->finalize;
+    $self->_trace_msg("<- ".$request->method. " => ".$request->uri);
+
+    my $result = $self->request($final);
 
     $response = $request->new_response(
         $result->code,
@@ -46,6 +49,8 @@ sub http_request {
         $result->content,
     );
 
+    $self->_trace_msg("<- HTTP Status".$result->code );
+    
     map { $_->($response) } reverse @middlewares;
 
     $response;
-- 
cgit v1.2.3