# Remember to update this in Catalyst::Runtime as well!
-our $VERSION = '5.80020';
+our $VERSION = '5.80021';
our $PRETTY_VERSION = $VERSION;
$VERSION = eval $VERSION;
$c->finalize_body;
}
- $c->log_response;
+ $c->log_response;
if ($c->use_stats) {
my $elapsed = sprintf '%f', $c->stats->elapsed;
return unless $c->debug;
- my($dump) = grep {$_->[0] eq 'Request' } $c->dump_these;
- my $request = $dump->[1];
+ my($dump) = grep {$_->[0] eq 'Request' } $c->dump_these;
+ my $request = $dump->[1];
my ( $method, $path, $address ) = ( $request->method, $request->path, $request->address );
$method ||= '';
return unless $c->debug;
- 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);
+ my($dump) = grep {$_->[0] eq 'Response' } $c->dump_these;
+ my $response = $dump->[1];
+
+ $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 => {} )
my $c = shift;
my %all_params = @_;
- return unless $c->debug;
+ return unless $c->debug;
my $column_width = Catalyst::Utils::term_width() - 44;
foreach my $type (qw(query body)) {
- my $params = $all_params{$type};
- next if ! keys %$params;
+ my $params = $all_params{$type};
+ next if ! keys %$params;
my $t = Text::SimpleTable->new( [ 35, 'Parameter' ], [ $column_width, 'Value' ] );
for my $key ( sort keys %$params ) {
my $param = $params->{$key};
sub log_request_uploads {
my $c = shift;
- my $request = shift;
+ my $request = shift;
return unless $c->debug;
my $uploads = $request->uploads;
if ( keys %$uploads ) {