$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];
+ 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 $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 ) {