X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FEngine.pm;h=9b7d58ab130aa184f76a8c3a3f96de29837fa909;hb=1f656a1fd6f4afa3d162194a094fcbfd094396e6;hp=9971412b79ca47aa9193fd64c0aab06d5ad382ca;hpb=e4d3065961958258b70ab8f82a4d186a98198659;p=catagits%2FCatalyst-Runtime.git

diff --git a/lib/Catalyst/Engine.pm b/lib/Catalyst/Engine.pm
index 9971412..9b7d58a 100644
--- a/lib/Catalyst/Engine.pm
+++ b/lib/Catalyst/Engine.pm
@@ -1,8 +1,7 @@
 package Catalyst::Engine;
 
 use strict;
-use base
-  qw/Class::Data::Inheritable Class::Accessor::Fast Catalyst::Dispatcher/;
+use base qw/Class::Data::Inheritable Class::Accessor::Fast/;
 use UNIVERSAL::require;
 use CGI::Cookie;
 use Data::Dumper;
@@ -614,6 +613,12 @@ sub setup_components {
         $self->components->{ ref $comp } = $comp;
         push @comps, $comp;
     }
+    my $t = Text::ASCIITable->new( { hide_HeadRow => 1, hide_HeadLine => 1 } );
+    $t->setCols('Class');
+    $t->setColWidth( 'Class', 75, 1 );
+    $t->addRow( wrap( $_, 75 ) ) for keys %{ $self->components };
+    $self->log->debug( 'Loaded components', $t->draw )
+      if ( @{ $t->{tbl_rows} } && $self->debug );
     $self->setup_actions( [ $self, @comps ] );
 }