X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst.pm;h=2bba938353dba0defcec99c0cbc627685ab4f58a;hb=a135d186f7acefbbab74e8e6d9a43ccd3560d326;hp=1a7b6729af2b3d4ef16fb427a8d19e23377b0642;hpb=91dc9907365d9a8b25836d3c3bf68683af18eb7d;p=catagits%2FCatalyst-Runtime.git diff --git a/lib/Catalyst.pm b/lib/Catalyst.pm index 1a7b672..2bba938 100644 --- a/lib/Catalyst.pm +++ b/lib/Catalyst.pm @@ -4,6 +4,8 @@ use strict; use base 'Catalyst::Base'; use UNIVERSAL::require; use Catalyst::Log; +use Text::ASCIITable; +use Text::ASCIITable::Wrap 'wrap'; __PACKAGE__->mk_classdata($_) for qw/engine log/; @@ -177,13 +179,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( { hide_HeadRow => 1, hide_HeadLine => 1 } ); + $t->setCols('Class'); + $t->setColWidth( 'Class', 75, 1 ); + $t->addRow( wrap( $_, 75 ) ) for @plugins; + $caller->log->debug( 'Loaded plugins', $t->draw ) if ( @plugins && $caller->debug ); # Engine