# Always expect worst case!
my $status = -1;
eval {
+ my @stats = ();
my $handler = sub {
my $c = $class->prepare($r);
- $c->{stats} = [];
+ $c->{stats} = \@stats;
my $action = $c->req->action;
my $namespace = '';
$namespace = ( join( '/', @{ $c->req->args } ) || '/' )
{
$c->state( $c->execute( @{ $end->[0] } ) );
}
- my @stats = @{ $c->{stats} };
- $c->log->info( 'Processing took', @stats )
- if ( @stats && $c->debug );
}
else {
my $path = $c->req->path;
( $elapsed, $status ) = $class->benchmark($handler);
$elapsed = sprintf '%f', $elapsed;
my $av = sprintf '%.3f', 1 / $elapsed;
- $class->log->info( "Request took $elapsed" . "s ($av/s)" );
+ $class->log->info( "Request took $elapsed" . "s ($av/s)", @stats );
}
else { $status = &$handler }
};
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 );
}
my ( $elapsed, @state ) =
$c->benchmark( $code, $class, $c, @{ $c->req->args } );
push @{ $c->{stats} },
- _prettify( $action, sprintf( '%fs', $elapsed ), '' );
+ _prettify( $action, '', sprintf( '%fs', $elapsed ) );
$c->state(@state);
}
else { $c->state( &$code( $class, $c, @{ $c->req->args } ) ) }
$self->setup_actions($comp);
}
my @comps;
- push @comps, " $_" for keys %{ $self->components };
+ push @comps, " $_" for keys %{ $self->components };
$self->log->debug( 'Loaded components', @comps )
if ( @comps && $self->debug );
my $actions = $self->actions;
sub _prettify {
my ( $val1, $val2, $val3 ) = @_;
formline
-' @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @>>>>>>>>>>>>>> ',
+' @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<<<< @>>>>>>>>>>>>>> ',
$val1, $val2, $val3;
my $formatted = $^A;
$^A = '';