This file documents the revision history for Perl extension Catalyst.
+4.27 Wed Mar 16 20:00:00 2005
+ - debug message for parameters
+
4.26 Wed Mar 16 10:00:00 2005
- fixed the weird bug that caused regex actions to fail on every
second request
- - somemore debug messages
+ - more debug messages
- 100% pod coverage.
4.25 Sat Mar 12 18:00:00 2005
__PACKAGE__->mk_classdata($_) for qw/_config log/;
-our $VERSION = '4.26';
+our $VERSION = '4.27';
our @ISA;
=head1 NAME
$c->log->debug(qq/"$method" request for "$path"/) if $c->debug;
$c->prepare_action;
$c->prepare_parameters;
+
+ if ( $c->debug && keys %{ $c->req->params } ) {
+ my @params;
+ for my $key ( keys %{ $c->req->params } ) {
+ my $value = $c->req->params->{$key};
+ push @params, "$key=$value";
+ }
+ $c->log->debug( 'Parameters are "' . join( ' ', @params ) . '"' );
+ }
$c->prepare_uploads;
return $c;
}