X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=lib%2FCatalyst.pm;h=89a77b276325f2510353f1c35d753dbf5d1a4071;hp=8d59a4d1f1517096e437926a33c23e8f8bf3b96f;hb=cb0354c628b21454588f9eb409e4d0f83dc63f58;hpb=684d10edf63074f94667d437db01d30b8d13cefc

diff --git a/lib/Catalyst.pm b/lib/Catalyst.pm
index 8d59a4d..89a77b2 100644
--- a/lib/Catalyst.pm
+++ b/lib/Catalyst.pm
@@ -44,7 +44,28 @@ require Module::Pluggable::Fast;
 our $CATALYST_SCRIPT_GEN = 10;
 
 __PACKAGE__->mk_classdata($_)
-  for qw/components arguments dispatcher engine log/;
+  for qw/components arguments dispatcher engine log _dispatcher_class
+    _engine_class _context_class _request_class _response_class/;
+
+sub dispatcher_class {
+    return $_[0]->_dispatcher_class(@_[1..$#_]) || 'Catalyst::Dispatcher';
+}
+
+sub engine_class {
+    return $_[0]->_engine_class(@_[1..$#_]) || 'Catalyst::Engine::CGI';
+}
+
+sub context_class {
+    return $_[0]->_context_class(@_[1..$#_]) || ref $_[0] || $_[0];
+}
+
+sub request_class {
+    return $_[0]->_request_class(@_[1..$#_]) || 'Catalyst::Request';
+}
+
+sub response_class {
+    return $_[0]->_response_class(@_[1..$#_]) || 'Catalyst::Response';
+}
 
 our $VERSION = '5.49_03';
 
@@ -415,7 +436,7 @@ sub setup {
     $class->setup_components;
 
     if ( $class->debug ) {
-        my $t = Text::SimpleTable->new( [ 37, 'Class' ], [ 36, 'Type' ] );
+        my $t = Text::SimpleTable->new( [ 65, 'Class' ], [ 8, 'Type' ] );
         for my $comp ( sort keys %{ $class->components } ) {
             my $type = ref $class->components->{$comp} ? 'instance' : 'class';
             $t->row( $comp, $type );
@@ -1061,10 +1082,10 @@ into a Catalyst context .
 sub prepare {
     my ( $class, @arguments ) = @_;
 
-    my $c = bless {
+    my $c = $class->context_class->new({
         counter => {},
         depth   => 0,
-        request => Catalyst::Request->new(
+        request => $class->request_class->new(
             {
                 arguments        => [],
                 body_parameters  => {},
@@ -1077,7 +1098,7 @@ sub prepare {
                 uploads          => {}
             }
         ),
-        response => Catalyst::Response->new(
+        response => $class->response_class->new(
             {
                 body    => '',
                 cookies => {},
@@ -1087,7 +1108,7 @@ sub prepare {
         ),
         stash => {},
         state => 0
-    }, $class;
+    });
 
     # For on-demand data
     $c->request->{_context}  = $c;
@@ -1426,7 +1447,7 @@ sub setup_dispatcher {
     }
 
     unless ($dispatcher) {
-        $dispatcher = 'Catalyst::Dispatcher';
+        $dispatcher = $class->dispatcher_class;
     }
 
     $dispatcher->require;
@@ -1515,7 +1536,7 @@ sub setup_engine {
     }
 
     unless ($engine) {
-        $engine = 'Catalyst::Engine::CGI';
+        $engine = $class->engine_class;
     }
 
     $engine->require;