summaryrefslogtreecommitdiff
path: root/lib/Net/HTTP/Spore/Role/Request.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Net/HTTP/Spore/Role/Request.pm')
-rw-r--r--lib/Net/HTTP/Spore/Role/Request.pm7
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;