push @{ $c->{stats} }, [ $action, sprintf( '%fs', $elapsed ) ];
$c->state(@state);
}
- else { $c->state( &$code( $class, $c, @{ $c->req->args } ) ) }
+ else { $c->state( &$code( $class, $c, @{ $c->req->args } ) ? 1 : 0 ) }
};
if ( my $error = $@ ) {
return $status;
}
+=item $c->finalize_output
+
+<obsolete>, see finalize_body
+
=item $c->finalize_body
Finalize body.
my $method = $c->req->method || '';
my $path = $c->req->path || '';
- my $hostname = $c->req->hostname || '';
my $address = $c->req->address || '';
- $c->log->debug(qq/"$method" request for "$path" from $hostname($address)/)
+ $c->log->debug(qq/"$method" request for "$path" from $address/)
if $c->debug;
if ( $c->request->method eq 'POST' and $c->request->content_length ) {
sub prepare_uploads { }
-=item $c->retrieve_components
-
-Retrieve Components.
-
-=cut
-
-sub retrieve_components {
- my $self = shift;
-
- my $class = ref $self || $self;
- eval <<"";
- package $class;
- import Module::Pluggable::Fast
- name => '_components',
- search => [
- '$class\::Controller', '$class\::C',
- '$class\::Model', '$class\::M',
- '$class\::View', '$class\::V'
- ],
- require => 1;
-
- if ( my $error = $@ ) {
- chomp $error;
- die qq/Couldn't load components "$error"/;
- }
-
- return $self->_components;
-}
-
=item $c->run
Starts the engine.
sub setup_components {
my $self = shift;
-
+
# Components
my $class = ref $self || $self;
eval <<"";