X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=lib%2FCatalyst.pm;h=1dd09c006ed73295d458e3f96b7c6637920870e6;hp=328a3582c8bdff955ba9a9cf18c4f5135dc18b34;hb=970cc51d658caacc56714f712fa567398ee48218;hpb=d96e14c21fb544597f459aaaad969c34af7f2d1f diff --git a/lib/Catalyst.pm b/lib/Catalyst.pm index 328a358..1dd09c0 100644 --- a/lib/Catalyst.pm +++ b/lib/Catalyst.pm @@ -1,11 +1,11 @@ package Catalyst; use strict; -use base 'Class::Data::Inheritable'; +use base 'Catalyst::Base'; use UNIVERSAL::require; use Catalyst::Log; -__PACKAGE__->mk_classdata($_) for qw/_config engine log/; +__PACKAGE__->mk_classdata($_) for qw/engine log/; our $VERSION = '5.00'; our @ISA; @@ -125,18 +125,6 @@ Returns a hashref containing your applications settings. =cut -sub config { - my $self = shift; - $self->_config( {} ) unless $self->_config; - if ( $_[0] ) { - my $config = $_[1] ? {@_} : $_[0]; - while ( my ( $key, $val ) = each %$config ) { - $self->_config->{$key} = $val; - } - } - return $self->_config; -} - sub import { my ( $self, @options ) = @_; my $caller = caller(0); @@ -147,7 +135,7 @@ sub import { } if ( $caller->engine ) { - return; # Catalyst is allready initialized + return; # Catalyst is allready initialized } unless ( $caller->log ) { @@ -161,7 +149,8 @@ sub import { } # Options - my $engine = $ENV{MOD_PERL} + my $engine = + $ENV{MOD_PERL} ? 'Catalyst::Engine::Apache' : 'Catalyst::Engine::CGI'; @@ -197,8 +186,8 @@ sub import { if ( $engine eq 'Catalyst::Engine::Server' ) { $engine = 'Catalyst::Engine::HTTP::Daemon'; - $caller->log->warn( "Catalyst::Engine::Server is deprecated, " - . "using Catalyst::Engine::HTTP::Daemon." ); + $caller->log->warn( "Catalyst::Engine::Server is deprecated, " + . "using Catalyst::Engine::HTTP::Daemon." ); } $engine->require;