diff options
| author | franck cuny <franck@lumberjaph.net> | 2010-10-26 17:35:08 +0200 |
|---|---|---|
| committer | franck cuny <franck@lumberjaph.net> | 2010-10-26 17:35:08 +0200 |
| commit | 2389782526e6c35589bb4d9bbadea78559ac1eda (patch) | |
| tree | 89ab004cc9edfb2a76ec60ebd14f1c973b6e0c5b /lib/Net/HTTP/Spore/Role/Request.pm | |
| parent | add expected_status to top level (diff) | |
| download | net-http-spore-2389782526e6c35589bb4d9bbadea78559ac1eda.tar.gz | |
add role to trace
Diffstat (limited to 'lib/Net/HTTP/Spore/Role/Request.pm')
| -rw-r--r-- | lib/Net/HTTP/Spore/Role/Request.pm | 7 |
1 files changed, 6 insertions, 1 deletions
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; |