X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=lib%2FCatalyst%2FDispatchType%2FPath.pm;fp=lib%2FCatalyst%2FDispatchType%2FPath.pm;h=4c23aaac4edfd7392dd11038b722b70fbfd42a36;hp=545e6072be9d5d7550d3249275fca2241d88dc37;hb=fb495632d15d5aa112371bb5c3c39a6189ddb9a0;hpb=901991e63957ab5361ea13e867532d8d8ef2cf7a diff --git a/lib/Catalyst/DispatchType/Path.pm b/lib/Catalyst/DispatchType/Path.pm index 545e607..4c23aaa 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" ); } }