use Catalyst::Utils;
use Text::SimpleTable;
use Tree::Simple;
-use Tree::Simple::Visitor::FindByPath;
use Class::Load qw(load_class try_load_class);
use Encode 2.21 'decode_utf8';
sub get_action_by_path {
my ( $self, $path ) = @_;
- $path =~s/[^\/]+\/\.\.\/// while $path=~m/\.\./;
+ $path =~s/[^\/]+\/\.\.\/// while $path=~m/[^\/]+\/\.\.\//;
$path =~ s/^\///;
$path = "/$path" unless $path =~ /\//;
$self->_action_hash->{$path};