# We need to turn the full chain name into a path, since two end points
# from two different chains could have the same end point name.
- ( my $name = ( $attrs->{Chained} eq '/' ? q{} : $attrs->{Chained} ) . q{/}
- . $_[0] ) =~ s/(\W)/'X' . sprintf( '%x', ord($1) )/eg;
+ my $name = ( $attrs->{Chained} eq '/' ? q{} : $attrs->{Chained} ) . q{/}
+ . $_[0];
my $meth_base = '__route__' . $name;
my $meta = shift;
my ( $attrs, $sub ) = _process_args( $meta, @_ );
- ( my $name = $_[0] ) =~ s/(\W)/'X' . sprintf('%x', ord(1) )/eg;
+ my $name = $_[0];
$meta->add_chain_point( $name => [ $attrs, $sub ] );
}