use UNIVERSAL::require;
use Catalyst::Log;
-__PACKAGE__->mk_classdata($_) for qw/_config log/;
+__PACKAGE__->mk_classdata($_) for qw/_config engine log/;
-our $VERSION = '4.32';
+our $VERSION = '5.00';
our @ISA;
=head1 NAME
my ( $self, @options ) = @_;
my $caller = caller(0);
- # Class
- {
+ unless ( $caller->isa($self) ) {
no strict 'refs';
- *{"$caller\::handler"} =
- sub { Catalyst::Engine::handler( $caller, @_ ) };
-
- unless ( $caller->isa($self) ) {
- push @{"$caller\::ISA"}, $self;
- }
+ push @{"$caller\::ISA"}, $self;
}
- unless ( $self->log ) {
- $self->log( Catalyst::Log->new );
+ unless ( $caller->log ) {
+ $caller->log( Catalyst::Log->new );
}
# Options
no strict 'refs';
push @{"$caller\::ISA"}, $engine;
}
+ $caller->engine($engine);
$caller->log->debug(qq/Loaded engine "$engine"/) if $caller->debug;
}
+=item $c->engine
+
+Contains the engine class.
+
=item $c->log
Contains the logging object. Unless it is already set Catalyst sets this up with a
=head1 THANK YOU
Andrew Ford, Andrew Ruthven, Christian Hansen, Christopher Hicks,
-Danijel Milicevic, David Naughton, Gary Ashton Jones, Jesse Sheidlower,
-Johan Lindstrom, Marcus Ramberg, Tatsuhiko Miyagawa and all the others
-who've helped.
+Dan Sully, Danijel Milicevic, David Naughton, Gary Ashton Jones,
+Jesse Sheidlower, Johan Lindstrom, Marcus Ramberg, Tatsuhiko Miyagawa
+and all the others who've helped.
=head1 LICENSE