Catalyst 中的实用程序 (Perl)

Question

我应该在 Catalyst 项目中的何处放置诸如 sum_it_all() 之类的函数？

它不是一个模型，与数据无关，它不是一个控制器，因为它不询问网络请求。这只是一个简单的功能，我希望它可以在我的所有控制器中访问。

现在我使用 Model/Utils.pm 和 $c->model("utils")->sum_it_all()，但这似乎真的很荒谬。

Answer 1

如果您需要在 Catalyst 控制器中使用此功能，只需将其嵌入到您需要的控制器中即可。如果您需要在多个Controller中实现相同的功能。创建一个包含所有功能的新模块。如果您的项目名为“Foo”，则创建例如“Foo::Helpers”。

在每个需要助手提供某些功能的控制器中，只需导入它们“use Foo::Helper qw(sum)”

看看 Sub::Exporter 用于导出函数。

Answer 2

如果它不是 Catalyst 特有的，只需按照 Catalyst 上下文之外的方式使用它即可。我推荐子导出器。

$ctx->model(...) 用于访问层 (::Model::)，该层基本上是 Catalyst 和您的模型之间的“粘合剂”业务/模型逻辑。如果您不需要任何粘合（自动配置和组件膨胀以方便访问是一个常见的用例），您可以像在每个 Perl 应用程序中一样将其抽象出来。

Answer 3

我建议您只需添加该功能和其他有用的功能作为 Catalyst 插件
您可以使用语法 $c->sum_it_all() 访问它（请参阅下面的示例插件）

========示例自定义插件====

package Catalyst::Plugin::HelpUtils;
use strict;
use warnings;
our $VERSION = '1.0';

=head1 NAME

Catalyst::Plugin::HelpUtils


=head1 SYNOPSIS

    use Catalyst qw/
    Helputils
    /;

    To use any of the utilities in this plugin e.g:
    $c->sum_it_all()    


=cut

sub sum_it_all{
    my @items = @_;
    my $result = 0;
    foreach(@items) {
        $result += $_;
    }
    return $result;
}


1;

Answer 4

我在 Utils.pm Helper 包中有一组函数，通过催化剂我想使用 $c->utils 访问器访问所有方法。

例如：

package Utils

sub method1 {
}

sub method2 {
}

在催化剂中，我想使用 $c->utils->method1() 或 $c->utils->method2 调用 method1 ()

请让我知道实现此目的的最佳方法。