Substituting a vertical bar for slashes in sub names makes debug output much easier...

diff --git a/lib/CatalystX/Routes.pm b/lib/CatalystX/Routes.pm
index 72f7760..e7059a4 100644 (file)
--- 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 ] );
 }