only log response status, content-type and content-length headers

diff --git a/lib/Catalyst.pm b/lib/Catalyst.pm
index a2eb1da..4166359 100644 (file)
--- a/lib/Catalyst.pm
+++ b/lib/Catalyst.pm
@@ -2151,8 +2151,14 @@ sub log_response {
     my($dump) = grep {$_->[0] eq 'Response' } $c->dump_these;
     my $response = $dump->[1];
 
-    $c->log->debug('Response Status: ' . $response->status);
-    $c->log_headers('response', $response->headers);
+       $c->log->debug(
+               sprintf(
+                       'Response Code: %s; Content-Type: %s; Content-Length: %s',
+                       $response->status                            || 'unknown',
+                       $response->headers->header('Content-Type')   || 'unknown',
+                       $response->headers->header('Content-Length') || 'unknown'
+               )
+       );
 }
 
 =head2 $c->log_request_parameters( query => {}, body => {} )