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/;
$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