require Module::Pluggable::Fast;
+# For pretty dumps
$Data::Dumper::Terse = 1;
__PACKAGE__->mk_classdata('components');
*req = \&request;
*res = \&response;
+# For statistics
our $COUNT = 1;
our $START = time;
sub component {
my ( $c, $name ) = @_;
+
if ( my $component = $c->components->{$name} ) {
return $component;
}
+
else {
for my $component ( keys %{ $c->components } ) {
return $c->components->{$component} if $component =~ /$name/i;
}
}
+
}
=item $c->error
$class = $c->comp($class) || $class;
$c->state(0);
my $callsub = ( caller(1) )[3];
+
eval {
if ( $c->debug )
{
}
else { $c->state( &$code( $class, $c, @{ $c->req->args } ) ) }
};
+
if ( my $error = $@ ) {
unless ( ref $error ) {
my $status = -1;
eval {
my @stats = ();
+
my $handler = sub {
my $c = $class->prepare($engine);
$c->{stats} = \@stats;
$c->dispatch;
return $c->finalize;
};
+
if ( $class->debug ) {
my $elapsed;
( $elapsed, $status ) = $class->benchmark($handler);
$t->draw );
}
else { $status = &$handler }
+
};
+
if ( my $error = $@ ) {
chomp $error;
$class->log->error(qq/Caught exception in engine "$error"/);
}
+
$COUNT++;
return $status;
}
sub prepare {
my ( $class, $r ) = @_;
+
my $c = bless {
request => Catalyst::Request->new(
{
stash => {},
state => 0
}, $class;
+
if ( $c->debug ) {
my $secs = time - $START || 1;
my $av = sprintf '%.3f', $COUNT / $secs;
$c->log->debug('**********************************');
$c->res->headers->header( 'X-Catalyst' => $Catalyst::VERSION );
}
+
$c->prepare_request($r);
$c->prepare_path;
$c->prepare_headers;
$c->prepare_cookies;
$c->prepare_connection;
+
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)/)
if $c->debug;
+
$c->prepare_action;
$c->prepare_parameters;
}
$c->log->debug( 'Parameters are', $t->draw );
}
+
$c->prepare_uploads;
return $c;
}
my $path = $c->req->path;
my @path = split /\//, $c->req->path;
$c->req->args( \my @args );
+
while (@path) {
$path = join '/', @path;
if ( my $result = ${ $c->get_action($path) }[0] ) {
$c->req->action($match);
$c->req->snippets( \@snippets );
}
+
else {
$c->req->action($path);
$c->log->debug(qq/Requested action is "$path"/) if $c->debug;
}
+
$c->req->match($path);
last;
}
unshift @args, pop @path;
}
+
unless ( $c->req->action ) {
$c->req->action('default');
$c->req->match('');
}
+
$c->log->debug( 'Arguments are "' . join( '/', @args ) . '"' )
if ( $c->debug && @args );
}
$self->log->error(
qq/Couldn't initialize "Module::Pluggable::Fast", "$error"/);
}
+
$self->components( {} );
my @comps;
for my $comp ( $self->_components($self) ) {
$self->components->{ ref $comp } = $comp;
push @comps, $comp;
}
+
my $t = Text::ASCIITable->new( { hide_HeadRow => 1, hide_HeadLine => 1 } );
$t->setCols('Class');
$t->setColWidth( 'Class', 75, 1 );
$t->addRow($_) for keys %{ $self->components };
$self->log->debug( 'Loaded components', $t->draw )
if ( @{ $t->{tbl_rows} } && $self->debug );
+
$self->setup_actions( [ $self, @comps ] );
}