如何在Catalyst应用的Utilities包中自动获取log对象（Moose实现）

嘿，这个需求完全能通过Moose实现，而且思路其实挺清晰的，我来给你拆解下具体怎么做～

因为你的Utilities包是专属这个Catalyst应用的，我们可以把它和Catalyst的上下文/控制器绑定起来，不用每次调用工具函数都手动传递log。这里有两个最靠谱的方案，都符合你的要求：

方案一：把Utilities封装成Moose类，依赖注入Log #

这种方式适合想保持Utilities包独立性的场景，把工具函数改成类的实例方法，每个控制器初始化自己的Utils实例时自动传入对应的log：

首先重构你的Utilities包为Moose类：

package MyApp::Utils;
use Moose;

# 定义log属性，要求必须传入，并且可以直接委托log的常用方法（方便调用）
has 'log' => (
    is       => 'ro',
    required => 1,
    handles  => [qw/debug info warn error/],
);

# 把原来的函数改成实例方法，用$self访问log
sub get_name_from_id {
    my ($self, $id) = @_;
    $self->debug("Fetching name for ID: $id");
    # 你的业务逻辑...
}

sub cleanse_input {
    my ($self, $input) = @_;
    $self->info("Cleansing input: $input");
    # 你的业务逻辑...
}

# 其他工具函数同理，都改成实例方法
__PACKAGE__->meta->make_immutable;
1;

然后在你的Catalyst控制器里，通过懒加载的方式初始化Utils实例，自动把当前控制器的log传进去：

package MyApp::Controller::SomeController;
use Moose;
use namespace::autoclean;
BEGIN { extends 'Catalyst::Controller'; }

# 定义utils属性，懒加载初始化
has 'utils' => (
    is         => 'ro',
    isa        => 'MyApp::Utils',
    lazy_build => 1,
);

sub _build_utils {
    my $self = shift;
    # 自动从stash里取log传入Utils实例
    return MyApp::Utils->new(log => $self->stash->{log});
}

sub some_action :Path('/some/path') {
    my ($self, $c) = @_;
    # 直接调用Utils方法，完全不用手动传log
    my $name = $self->utils->get_name_from_id(123);
    # ...其他逻辑
}

__PACKAGE__->meta->make_immutable;
1;

这样每个控制器的Utils实例都持有自己对应的log对象，完美适配你不同输出目标的需求。

方案二：把Utilities做成Moose角色，让控制器消费它 #

这种方式更简洁，直接把工具函数变成控制器的方法，自然就能访问Catalyst的上下文和stash里的log：

先把Utilities改成Moose角色：

package MyApp::Role::Utils;
use Moose::Role;

# 工具函数直接作为角色的方法，能访问控制器的$self（也就是控制器实例）
sub get_name_from_id {
    my ($self, $id) = @_;
    my $log = $self->stash->{log};
    $log->debug("Fetching name for ID: $id");
    # 你的业务逻辑...
}

sub cleanse_input {
    my ($self, $input) = @_;
    my $log = $self->stash->{log};
    $log->info("Cleansing input: $input");
    # 你的业务逻辑...
}

# 其他工具函数同理
1;

然后在控制器里消费这个角色，就能直接调用工具函数了：

package MyApp::Controller::SomeController;
use Moose;
use namespace::autoclean;
BEGIN { extends 'Catalyst::Controller'; }

# 引入Utils角色，把工具函数变成控制器的方法
with 'MyApp::Role::Utils';

sub some_action :Path('/some/path') {
    my ($self, $c) = @_;
    # 直接调用工具函数，自动获取stash里的log
    my $name = $self->get_name_from_id(123);
    # ...其他逻辑
}

__PACKAGE__->meta->make_immutable;
1;

这种方式不用单独管理Utils实例，代码更精简，适合希望快速整合的场景。

不推荐的方案：全局变量存Log #

虽然可以用全局变量来传递log，但因为Catalyst是多请求并发的环境，全局变量很容易被覆盖，导致日志混乱，所以强烈不建议用这种方式。

内容的提问来源于stack exchange，提问作者user1235777