如何在Perl的Catalyst中自定义调度规则?

vav*_*ava 1 perl catalyst

如何自定义分配规则Catalyst在匹配网址时使用?

例如,我想GET /home/a打电话sub a_GET : LocalPOST /home/a打电话sub a_POST : Local.

我知道我总是可以编写一个基于名称调用其中一个函数的常见操作,但我想听听更多通用选项.