my @plugins = map { "$_ " . ( $_->VERSION || '' ) } $class->registered_plugins;
if (@plugins) {
- my $t = Text::SimpleTable->new(74);
+ my $column_width = Catalyst::Utils::term_width() - 6;
+ my $t = Text::SimpleTable->new($column_width);
$t->row($_) for @plugins;
$class->log->debug( "Loaded plugins:\n" . $t->draw . "\n" );
}
$class->setup_components;
if ( $class->debug ) {
- my $t = Text::SimpleTable->new( [ 63, 'Class' ], [ 8, 'Type' ] );
+ my $column_width = Catalyst::Utils::term_width() - 8 - 9;
+ my $t = Text::SimpleTable->new( [ $column_width, 'Class' ], [ 8, 'Type' ] );
for my $comp ( sort keys %{ $class->components } ) {
my $type = ref $class->components->{$comp} ? 'instance' : 'class';
$t->row( $comp, $type );
$class->setup_finalize;
}
+
+=head2 $app->setup_finalize
+
+A hook to attach modifiers to.
+Using C< after setup => sub{}; > doesn't work, because of quirky things done for plugin setup.
+Also better than C< setup_finished(); >, as that is a getter method.
+
+ sub setup_finalize {
+
+ my $app = shift;
+
+ ## do stuff, i.e., determine a primary key column for sessions stored in a DB
+
+ $app->next::method(@_);
+
+
+ }
+
+=cut
+
sub setup_finalize {
my ($class) = @_;
$class->setup_finished(1);
$c->prepare_parameters;
$c->prepare_uploads;
- if ( $c->debug && keys %{ $c->req->body_parameters } ) {
- my $t = Text::SimpleTable->new( [ 35, 'Parameter' ], [ 36, 'Value' ] );
- for my $key ( sort keys %{ $c->req->body_parameters } ) {
- my $param = $c->req->body_parameters->{$key};
- my $value = defined($param) ? $param : '';
- $t->row( $key,
- ref $value eq 'ARRAY' ? ( join ', ', @$value ) : $value );
- }
- $c->log->debug( "Body Parameters are:\n" . $t->draw );
+ if ( $c->debug ) {
+ $c->log_parameters(
+ 'Body Parameters are', $c->request->body_parameters
+ );
}
}
$c->engine->prepare_query_parameters( $c, @_ );
- if ( $c->debug && keys %{ $c->request->query_parameters } ) {
- my $t = Text::SimpleTable->new( [ 35, 'Parameter' ], [ 36, 'Value' ] );
- for my $key ( sort keys %{ $c->req->query_parameters } ) {
- my $param = $c->req->query_parameters->{$key};
+ if ( $c->debug ) {
+ $c->log_parameters(
+ 'Query Parameters are', $c->request->query_parameters
+ );
+ }
+}
+
+=head2 $c->log_parameters($name, $parameters)
+
+Logs a hash reference of key value pairs, with a caption above the table.
+
+Looks like:
+
+ [debug] Query Parameters are:
+ .-------------------------------------+--------------------------------------.
+ | Parameter | Value |
+ +-------------------------------------+--------------------------------------+
+ | search | Moose |
+ | searchtype | modules |
+ '-------------------------------------+--------------------------------------'
+
+If there are query parameters you don't want to display in this output, such
+as passwords or other sensitive input, you can configure your application to
+redact those parameters:
+
+ C<< MyApp->config->{Debug}->{redact_parameters} = [ 'password' ] >>
+
+In that case, the output will look like:
+
+ [debug] Query Parameters are:
+ .-------------------------------------+--------------------------------------.
+ | Parameter | Value |
+ +-------------------------------------+--------------------------------------+
+ | password | (redacted by config) |
+ | username | some_user |
+ '-------------------------------------+--------------------------------------'
+
+=cut
+
+sub log_parameters {
+ my ( $c, $name, $parameters ) = @_;
+
+ my $skip = $c->config->{Debug}->{redact_parameters};
+ if (
+ ( not defined $skip or ref $skip eq 'ARRAY' )
+ && keys %{ $parameters }
+ ) {
+ my $t = Text::SimpleTable->new(
+ [ 35, 'Parameter' ], [ 36, 'Value' ] );
+ my %skip_params = map { $_ => $_ } @{ $skip || [] };
+ for my $key ( sort keys %$parameters ) {
+ my $param = $parameters->{$key};
my $value = defined($param) ? $param : '';
+ $value = '(redacted by config)' if exists $skip_params{$key};
+
$t->row( $key,
ref $value eq 'ARRAY' ? ( join ', ', @$value ) : $value );
}
- $c->log->debug( "Query Parameters are:\n" . $t->draw );
+ $c->log->debug( "$name:\n" . $t->draw );
}
}
bricas: Brian Cassidy <bricas@cpan.org>
+Byron Young <Byron.Young@riverbed.com>
+
Caelum: Rafael Kitover <rkitover@io.com>
chansen: Christian Hansen
omega: Andreas Marienborg
+Oleg Kostyuk <cub.uanic@gmail.com>
+
phaylon: Robert Sedlacek <phaylon@dunkelheit.at>
rafl: Florian Ragwitz <rafl@debian.org>