use base 'Catalyst::Base';
use UNIVERSAL::require;
use Catalyst::Log;
-use Catalyst::Helper;
use Text::ASCIITable;
+our $CATALYST_SCRIPT_GEN = 2;
__PACKAGE__->mk_classdata($_) for qw/dispatcher engine log/;
-our $VERSION = '5.00';
+our $VERSION = '5.03';
our @ISA;
=head1 NAME
sub index : Path('/index.html') {
my ( $self, $c ) = @_;
$c->res->output('Hello');
- $c->forward('_foo');
+ $c->forward('foo');
}
- sub product : Regex('/^product[_]*(\d*).html$/') {
+ sub product : Regex('^product[_]*(\d*).html$') {
my ( $self, $c ) = @_;
$c->stash->{template} = 'product.tt';
$c->stash->{product} = $c->req->snippets->[0];
require mod_perl;
- if ( $mod_perl::VERSION >= 1.99 ) {
+ if ( $ENV{MOD_PERL_API_VERSION} == 2 ) {
+ $engine = 'Catalyst::Engine::Apache::MP20';
+ }
+ elsif ( $mod_perl::VERSION >= 1.99 ) {
$engine = 'Catalyst::Engine::Apache::MP19';
}
else {
}
}
- $caller->log->info("You are running an old helper script! ".
- "Please update your scripts by regenerating the ".
- "application and copying over the new scripts.")
- if ( $ENV{CATALYST_SCRIPT_GEN} && (
- $ENV{CATALYST_SCRIPT_GEN} <
- $Catalyst::Helper::CATALYST_SCRIPT_GEN )) ;
+ $caller->log->info( "You are running an old helper script! "
+ . "Please update your scripts by regenerating the "
+ . "application and copying over the new scripts." )
+ if ( $ENV{CATALYST_SCRIPT_GEN}
+ && (
+ $ENV{CATALYST_SCRIPT_GEN} < $CATALYST_SCRIPT_GEN )
+ );
+
# Process options
my @plugins;
foreach (@options) {
$caller->log->debug( 'Loaded plugins', $t->draw )
if ( @plugins && $caller->debug );
- # Engine
- $engine = "Catalyst::Engine::$ENV{CATALYST_ENGINE}"
- if $ENV{CATALYST_ENGINE};
-
- $engine->require;
- die qq/Couldn't load engine "$engine", "$@"/ if $@;
- {
- no strict 'refs';
- push @{"$caller\::ISA"}, $engine;
- }
- $caller->engine($engine);
- $caller->log->debug(qq/Loaded engine "$engine"/) if $caller->debug;
-
# Dispatcher
$dispatcher = "Catalyst::Dispatcher::$ENV{CATALYST_DISPATCHER}"
if $ENV{CATALYST_DISPATCHER};
$caller->dispatcher($dispatcher);
$caller->log->debug(qq/Loaded dispatcher "$dispatcher"/) if $caller->debug;
+ # Engine
+ $engine = "Catalyst::Engine::$ENV{CATALYST_ENGINE}"
+ if $ENV{CATALYST_ENGINE};
+
+ $engine->require;
+ die qq/Couldn't load engine "$engine", "$@"/ if $@;
+ {
+ no strict 'refs';
+ push @{"$caller\::ISA"}, $engine;
+ }
+ $caller->engine($engine);
+ $caller->log->debug(qq/Loaded engine "$engine"/) if $caller->debug;
}
=item $c->engine
http://lists.rawmode.org/mailman/listinfo/catalyst
http://lists.rawmode.org/mailman/listinfo/catalyst-dev
+Web:
+
+ http://catalyst.perl.org
+
=head1 SEE ALSO
=over 4
=head1 THANK YOU
-Andy Grundman, Andrew Ford, Andrew Ruthven, Christian Hansen,
+Andy Grundman, Andrew Ford, Andrew Ruthven, Autrijus Tang, Christian Hansen,
Christopher Hicks, Dan Sully, Danijel Milicevic, David Naughton,
Gary Ashton Jones, Jesse Sheidlower, Johan Lindstrom, Marcus Ramberg,
Tatsuhiko Miyagawa and all the others who've helped.