From: Dave Rolsky Date: Sun, 23 Jan 2011 21:42:54 +0000 (-0600) Subject: Substituting a vertical bar for slashes in sub names makes debug output much easier... X-Git-Tag: 0.01~10 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalystX-Routes.git;a=commitdiff_plain;h=0f72bf19a2702b80c9e9302a6c46e44bd8dced68 Substituting a vertical bar for slashes in sub names makes debug output much easier to read --- diff --git a/lib/CatalystX/Routes.pm b/lib/CatalystX/Routes.pm index 72f7760..e7059a4 100644 --- a/lib/CatalystX/Routes.pm +++ b/lib/CatalystX/Routes.pm @@ -56,6 +56,8 @@ sub _add_route { $name = ( $attrs->{Chained} eq '/' ? q{} : $attrs->{Chained} ) . q{/} . $name; + $name =~ s{/}{|}g; + my $meth_base = '__route__' . $name; _maybe_add_rest_route( $meta, $meth_base, $attrs ); @@ -78,6 +80,7 @@ sub _add_chain_point { my ( $attrs, $sub ) = _process_args( $meta, @_ ); my $name = $_[0]; + $name =~ s{/}{|}g; $meta->add_chain_point( $name => [ $attrs, $sub ] ); }