X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst.pm;fp=lib%2FCatalyst.pm;h=9a9aaf5d280c29dd603efb184c6a90e22c880e44;hb=caf4f6be06bff59b9253fbca45ff7898c135a47c;hp=c0ad6b8bab9afbca459c2a9a9e1be94fbc45572c;hpb=9bbc3a9d5246b99184ef29df079464e036719562;p=catagits%2FCatalyst-Runtime.git diff --git a/lib/Catalyst.pm b/lib/Catalyst.pm index c0ad6b8..9a9aaf5 100644 --- a/lib/Catalyst.pm +++ b/lib/Catalyst.pm @@ -10,6 +10,8 @@ use Catalyst::Log; use Catalyst::Utils; use Catalyst::Controller; use Catalyst::Context; +use Catalyst::Exception::Detach; +use Catalyst::Exception::Go; use Devel::InnerPackage (); use Module::Pluggable::Object (); use Text::SimpleTable (); @@ -71,9 +73,9 @@ sub import { } my $meta = Moose::Meta::Class->initialize($caller); + # Make the caller inherit from Catalyst unless ( $caller->isa('Catalyst') ) { - my @superclasses = ($meta->superclasses, $class, 'Catalyst::Controller'); - $meta->superclasses(@superclasses); + $meta->superclasses($meta->superclasses, 'Catalyst'); } # Avoid possible C3 issues if 'Moose::Object' is already on RHS of MyApp $meta->superclasses(grep { $_ ne 'Moose::Object' } $meta->superclasses); @@ -826,11 +828,6 @@ EOF if ( keys %{ $class->components } ); } - # Add our self to components, since we are also a component - if( $class->isa('Catalyst::Controller') ){ - $class->components->{$class} = $class; - } - $class->setup_actions; if ( $class->debug ) {