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;
}
}
}
- my $t = Text::ASCIITable->new;
+ my $t = Text::ASCIITable->new( { hide_HeadRow => 1, hide_HeadLine => 1 } );
$t->setCols('Class');
- $t->addRow($_) for @plugins;
+ $t->setColWidth( 'Class', 75, 1 );
+ $t->addRow( wrap( $_, 75 ) ) for @plugins;
$caller->log->debug( 'Loaded plugins', $t->draw )
if ( @plugins && $caller->debug );