Как получить полный маршрут с `find` в Mojolicous?

Question

Я ярлык для регистрации REST маршруты как Mojolicious::Plugin::RESTRoutes

my $r = $self->routes; 
$r->add_shortcut(resource => \&resource); 

Также у меня есть некоторые under маршруты для проверки уровня доступа пользователя:

my $guest = $r->under->to("auth#check_level"); 
my $user = $r->under->to("auth#check_level", { required_level => 100 }); 
my $admin = $r->under->to("auth#check_level", { required_level => 200 }); 

При создании ресурса:

my $uResource = $user->resource('users'); 

I получить следующие маршруты:

$ myapp.pl routes 
/    *     # under for guest 
/    *     # under for user 
    +/users  *  users 
    +/   GET  "list_users" 
    +/create GET  "create_user" 
    +/   POST "store_user" 
    +/:id  GET  "show_user" 
    +/:id/edit GET  "edit_user" 
    +/:id  PUT  "update_user" 
    +/:id  DELETE "delete_user" 
/    *      # under for admin 

Нет, я хочу, чтобы настроить некоторые из них, чтобы ограничить доступ:

$guest->add_child($user->find('create_user')); 
$admin->add_child($user->find('list_users' )); 
$admin->add_child($user->find('delete_user')); 

Теперь я получаю это маршруты:

$ myapp.pl routes 
/    *      # under for guest 
    +/create  GET  "create_user" 
/    *      # under for user 
    +/users  *  users 
    +/   POST "store_user" 
    +/:id  GET  "show_user" 
    +/:id/edit GET  "edit_user" 
    +/:id  PUT  "update_user" 
/    *      # under for admin 
    +/   GET  "list_users"  
    +/:id   DELETE "delete_user" 

Как вы можете видеть только последнюю часть маршрута перемещается из user в guest/admin.
Из-за я использую здесь $user вместо $uResource
Я ожидаю, что маршрут +/users также соответствует:

$ myapp.pl routes 
/    *      # under for guest 
    +/users  *  users 
    +/create GET  "create_user" 
/    *      # under for user 
    +/users  *  users 
    +/   POST "store_user" 
    +/:id  GET  "show_user" 
    +/:id/edit GET  "edit_user" 
    +/:id  PUT  "update_user" 
/    *      # under for admin 
    +/users  *  users 
    +/   GET  "list_users"  
    +/:id  DELETE "delete_user" 

Это точно как:

$guest->any("/users")->add_child($user->find('create_user')); 
$admin->any("/users")->add_child($user->find('list_users' )); 
$admin->any("/users")->add_child($user->find('delete_user')); 

Есть ли способ предварять /users автоматически?

Answer 1

Я просто создаю различные ярлыки. Источники:

my $r = $self->routes; 
$r->add_shortcut(resource => \&resource ); 
$r->add_shortcut(privileged => \&privileged); 


# Each time someone make query we setup cookie and check his access level 
my $guest = $r->under->to("auth#check_level"); 
my $user = $r->under->to("auth#check_level", { required_level => 100 }); 
my $admin = $r->under->to("auth#check_level", { required_level => 200 }); 

$user->privileged('users', CS => $guest, LD => $admin); 


sub privileged { 
    my($r, $name, %restriction) = @_; 
    my $singular = Lingua::EN::Inflect::PL($name); 

    # Prefix for resource 
    $r = $r->any("/$name")->to("$singular#"); 

    my %api = (() 
     # Order definition has not matter each part of resource has unique path 
     # type  #method  #path  #action #route name 
     ,L => [ $r, [ "GET" ], "/",   '#index', "list_$name"  ] 
     ,C => [ $r, [ "GET" ], '/create', '#create', "create_$singular" ] 
     ,S => [ $r, [ "POST" ], '/',   '#store', "store_$singular" ] 
     ,R => [ $r, [ "GET" ], '/:id',  '#show', "show_$singular" ] 
     ,E => [ $r, [ "GET" ], '/:id/edit', '#edit', "edit_$singular" ] 
     ,U => [ $r, [ "PUT" ], '/:id',  '#update', "update_$singular" ] 
     ,D => [ $r, [ "DELETE" ], '/:id',  '#delete', "delete_$singular" ] 
    ); 

    # CS => $guest, REU => $user, LD => $admin translated into: 
    # $api{ C => [ $guest ...], S => [ $guest ... ], ..., D => [ $admin ... ] } 
    for my $level (keys %restriction) { 
     # Prefix for resource 
     my $r = $restriction{ $level }->any("/$name")->to("$singular#"); 

     for my $resource (split //, $level) { 
      $api{ $resource }[0] = $r; 
     } 
    } 


    # Create route for all resouces: LCSREUD 
    for my $resource (keys %api) { 
     my($guard, $method, $path, $action, $rname) = @{ $api{ $resource } }; 
     $guard->any($method, $path, $rname)->to($action); 
    } 


    return; 
} 

Любые предложения?