X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=lib%2FCatalyst%2FDispatchType%2FChained.pm;h=71a8fd3e979f22ee5736aa7e95051d6cddd73d20;hp=fcb21ca1e387319f978be1d7887752ab909f3b13;hb=39fc2ce1e456c4e2a272204aa8fe67896984b3a6;hpb=e358ade7c046b92ae117b0b242ac1a24e22b0d92 diff --git a/lib/Catalyst/DispatchType/Chained.pm b/lib/Catalyst/DispatchType/Chained.pm index fcb21ca..71a8fd3 100644 --- a/lib/Catalyst/DispatchType/Chained.pm +++ b/lib/Catalyst/DispatchType/Chained.pm @@ -5,6 +5,7 @@ extends 'Catalyst::DispatchType'; use Text::SimpleTable; use Catalyst::ActionChain; +use Catalyst::Utils; use URI; has _endpoints => ( @@ -67,9 +68,10 @@ sub list { return unless $self->_endpoints; + my $column_width = Catalyst::Utils::term_width() - 35 - 9; my $paths = Text::SimpleTable->new( - [ 35, 'Path Spec' ], [ 36, 'Private' ] - ); + [ 35, 'Path Spec' ], [ 36, 'Private' ], [ $column_width, 'Private' ] + ); my $has_unattached_actions; my $unattached_actions = Text::SimpleTable->new(