catalyst全局子例程

Question

在我正在构建的Catalyst应用程序中，有几个子例程基本上做了相同的事情，但它们都位于应用程序的不同部分。在Catalyst中有没有一个中心位置，我可以从应用程序中的任何地方调用子例程？我想避免重复代码。谢谢!

Answer 1

我不知道这是不是最好的做法，但我没有任何问题，使我的主模块中有这样的函数。然后，它们可以很容易地从任何有你的上下文对象的地方调用(即，任何地方)。

 package MyApp;
 ...
 sub my_frequently_used_sub {
     my ($c, @args) = @_;
     ...
 }


 package MyApp::Controller::Foo;
 ...
 sub some_action :Path {
     my ($self, $c, @args) = @_;
     ...
     my $result = $c->my_frequently_used_sub();
     ...
 }

Answer 2

现在基于Moose的Catalyst。您可以使用its roles作为解决方案。

Answer 3

如果函数应该在您的Catalyst应用程序之外可用，例如，因为它们是由您的模型使用的，那么它们应该进入一个完全独立的模块。如果它们确实是特定于Catalyst的，您可能想要创建私有操作，您可以转发或分离到类似于403不允许或404找不到错误页面。如果它们只是普通的Perl subs，您可以按照mob或Root控制器的建议将它们放在app类中。你能说出一些函数的名字，这样我们就可以给你一个更好的解决方案吗？