X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FDispatchType%2FPath.pm;h=0578ff4aa05a5db572885099ab3f3b2247d2792c;hb=87106f31bcbbacc350449a6fbe5d6de50b876057;hp=545e6072be9d5d7550d3249275fca2241d88dc37;hpb=48d435ba6a0925260fd58c8c18ff425e99708eae;p=catagits%2FCatalyst-Runtime.git diff --git a/lib/Catalyst/DispatchType/Path.pm b/lib/Catalyst/DispatchType/Path.pm index 545e607..0578ff4 100644 --- a/lib/Catalyst/DispatchType/Path.pm +++ b/lib/Catalyst/DispatchType/Path.pm @@ -54,8 +54,13 @@ sub list { [ $col1_width, 'Path' ], [ $col2_width, 'Private' ] ); foreach my $path ( sort keys %{ $self->_paths } ) { - my $display_path = $path eq '/' ? $path : "/$path"; foreach my $action ( @{ $self->_paths->{$path} } ) { + my $args = $action->attributes->{Args}->[0]; + my $parts = defined($args) ? '/*' x $args : '/...'; + + my $display_path = "/$path/$parts"; + $display_path =~ s{/{1,}}{/}g; + $paths->row( $display_path, "/$action" ); } }