X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst.pm;h=ba3993de3a9dee049506b4440d7cc0180f5e5c14;hb=1a0250cbc5e7146d5840d17dd223bad0139aa92b;hp=1a7b6729af2b3d4ef16fb427a8d19e23377b0642;hpb=91dc9907365d9a8b25836d3c3bf68683af18eb7d;p=catagits%2FCatalyst-Runtime.git diff --git a/lib/Catalyst.pm b/lib/Catalyst.pm index 1a7b672..ba3993d 100644 --- a/lib/Catalyst.pm +++ b/lib/Catalyst.pm @@ -4,6 +4,7 @@ use strict; use base 'Catalyst::Base'; use UNIVERSAL::require; use Catalyst::Log; +use Text::ASCIITable; __PACKAGE__->mk_classdata($_) for qw/engine log/; @@ -177,13 +178,17 @@ sub import { $caller->log->error(qq/Couldn't load plugin "$plugin", "$@"/); } else { - push @plugins, " + $plugin"; + push @plugins, $plugin; no strict 'refs'; push @{"$caller\::ISA"}, $plugin; } } } - $caller->log->debug( 'Loaded plugins', @plugins ) + my $t = Text::ASCIITable->new; + $t->setCols('Class'); + $t->setColWidth( 'Class', 75, 1 ); + $t->addRow($_) for @plugins; + $caller->log->debug( 'Loaded plugins', $t->draw ) if ( @plugins && $caller->debug ); # Engine