如何引入正则表达式操作来匹配 Catalyst URI 中的第一个元素？

Question

背景：

我在 Catalyst 中使用 CRUD 框架，它会为给定数据库中的所有表自动生成表单和列表。例如： /admin/list/person 或 /admin/add/person 或 /admin/edit/person/3 都动态生成适合表“person”的页面或表单。 （换句话说，Admin.pm 具有编辑、列表、添加、删除等操作，这些操作需要表参数和可能的行标识参数。）

问题：

在特定应用程序中，我构建时，数据库将由多个客户使用，因此我想引入一个 URI 方案，其中第一个元素是客户的标识符，后面是管理操作/表等：

• /cust1/admin/list/person
• /cust2/admin/添加/人
• /cust2/admin/edit/person/3

这是为了“品牌”目的，也是为了确保从一个用户传递到另一个用户的书签或 URL 执行预期的操作。

但我在让它发挥作用时遇到了很多麻烦。我不想修改现有框架中的子程序，因此我一直在尝试以下方面的变体：

sub customer : Regex('^(\w+)/(admin)$') {
    my ($self, $c, @args) = @_;
    #validation of captured arg snipped..
    my $path = join('/', 'admin', @args);
    $c->request->path($path);
    $c->dispatcher->prepare_action($c);
    $c->forward($c->action, $c->req->args);
}

但它不会表现出来。我曾多次使用正则表达式匹配操作，但将其放入 URI 的第一个“桶”中似乎异常痛苦。任何建议都非常感激。

Answer 1

使客户操作：链接，然后将管理操作链接到该操作。例如：

sub customer :Chained('/') :PathPart('') :CaptureArgs(1) {
    # load current customer into the stash
}

sub admin :Chained('customer') :PathPart('admin') :Args(0) {
}

有关详细信息，请参阅 Catalyst： :DispatchType::链式

Answer 2

我已将迪米塔的答案标记为正确的答案，因为它使我走上了解决这个问题的正确轨道。 （直到现在我才真正需要 - 或领会 FTM - 链式操作。）

以下是我在各种控制器中提供的内容，供任何感兴趣的人使用。

=== Root.pm ===

sub customer_home : Path: Args(1) { # eg /cust1
    my ($self, $c, $custarg) = @_;
    ...
}

sub ourclub :Chained('/') :PathPart('') :CaptureArgs(1) { # eg /cust1/<admin-function>
    my ($self, $c, $custarg) = @_;
    ...
}

=== Admin.pm ===

use base 'Framework::Controller';

# create chained action versions of the framework actions
sub admin       :Chained('/customer') :PathPart('admin')     { shift->SUPER::admin(@_) }
sub list        :Chained('/customer') :PathPart('list')      { shift->SUPER::list(@_) }
sub view        :Chained('/customer') :PathPart('view')      { shift->SUPER::view(@_) }
sub add         :Chained('/customer') :PathPart('add')       { shift->SUPER::add(@_) }
sub edit        :Chained('/customer') :PathPart('edit')      { shift->SUPER::edit(@_) }
sub delete      :Chained('/customer') :PathPart('delete')    { shift->SUPER::delete(@_) }
sub search      :Chained('/customer') :PathPart('search')    { shift->SUPER::search(@_) }
sub model       :Chained('/customer') :PathPart('model')     { shift->SUPER::model(@_) }

我曾经热衷于通过 *{$action} = eval "sub ..." 和相关想法动态生成所有这些子项，但最终不得不承认失败。