my @params;
for my $key ( keys %{ $c->req->params } ) {
my $value = $c->req->params->{$key} || '';
- push @params, "$key=$value";
+ push @params, " $key=$value";
}
- $c->log->debug( 'Parameters are', @params );
+ $c->log->debug( 'Parameters', @params );
}
$c->prepare_uploads;
return $c;
$self->components->{ ref $comp } = $comp;
$self->setup_actions($comp);
}
- my @comps = keys %{ $self->components };
+ my @comps;
+ push @comps, " $_" for keys %{ $self->components };
$self->log->debug( 'Loaded components', @comps )
if ( @comps && $self->debug );
my $actions = $self->actions;
my $uid = $parent->getUID;
for my $action ( keys %{ $actions->{private}->{$uid} } ) {
my ( $class, $code ) = @{ $actions->{private}->{$uid}->{$action} };
- push @$messages, qq/"$prefix$action" in "$class" as "$code"/;
+ push @$messages, _prettify( "$prefix$action", $class, $code );
}
$walker->( $walker, $_, $messages, $prefix )
for $parent->getAllChildren;
@messages = ('Loaded plain actions');
for my $plain ( keys %{ $actions->{plain} } ) {
my ( $class, $code ) = @{ $actions->{plain}->{$plain} };
- push @messages, qq|"/$plain" in "$class" as "$code"|;
+ push @messages, _prettify( $plain, $class, $code );
}
$self->log->debug(@messages) if ( $#messages && $self->debug );
@messages = ('Loaded regex actions');
for my $regex ( keys %{ $actions->{regex} } ) {
my ( $class, $code ) = @{ $actions->{regex}->{$regex} };
- push @messages, qq|"$regex" in "$class" as "$code"|;
+ push @messages, _prettify( $regex, $class, $code );
}
$self->log->debug(@messages) if ( $#messages && $self->debug );
}
return $prefix;
}
+sub _prettify {
+ my ( $action, $class, $code ) = @_;
+ formline
+' @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @|||||||||||||| ',
+ $action, $class, $code;
+ my $formatted = $^A;
+ $^A = '';
+ return $formatted;
+}
+
=back
=head1 AUTHOR