技术咨询：如何从Moose包中导出子程序，包括普通非OO子程序？

嘿，这个问题问得很实在！在Moose环境里导出子程序（包括非面向对象的普通子程序），其实有两种主流方式，我给你一步步讲清楚：

方法一：使用Moose::Exporter（推荐） #

Moose自带了Moose::Exporter，它是专门为Moose包设计的导出工具，比Perl原生的Exporter更贴合Moose的特性，还能避免一些导入冲突的问题。

下面是一个完整的示例：

package MyApp::Utils;
use Moose;
use Moose::Exporter;

# 定义普通非OO子程序
sub greet {
    my ($name) = @_;
    print "Hello, $name!\n";
}

sub add_numbers {
    my ($a, $b) = @_;
    return $a + $b;
}

# 配置导出规则
Moose::Exporter->setup_import_methods(
    exports => [qw(greet)],  # greet会默认导出
    as_is   => [qw(add_numbers)],  # add_numbers需要显式导入
);

__PACKAGE__->meta->make_immutable;
1;

关键说明： #

• exports参数：这里的子程序会自动导入到使用该包的代码中，比如use MyApp::Utils;就能直接调用greet('Anna');；
• as_is参数：这里的子程序不会默认导出，必须显式指定才能导入，比如use MyApp::Utils qw(add_numbers);之后才能用add_numbers(2,3);；
• 最后一行的__PACKAGE__->meta->make_immutable;是Moose包的标准操作，能大幅提升对象创建和访问的性能。

方法二：结合原生Exporter与Moose #

如果你已经习惯了Perl原生Exporter的写法，完全可以在Moose包里直接使用它，两者兼容度很高：

示例代码如下：

package MyApp::Utils;
use Moose;
use parent 'Exporter';

# 配置导出列表，和普通Perl包完全一致
our @EXPORT = qw(greet);       # 默认导出的子程序
our @EXPORT_OK = qw(add_numbers);  # 可选导出的子程序

# 定义普通非OO子程序
sub greet {
    my ($name) = @_;
    print "Hello, $name!\n";
}

sub add_numbers {
    my ($a, $b) = @_;
    return $a + $b;
}

__PACKAGE__->meta->make_immutable;
1;

关键说明： #

• 用use parent 'Exporter';让Moose包继承Exporter的导出能力；
• @EXPORT和@EXPORT_OK的用法和普通Perl包完全相同：
  • @EXPORT里的子程序会默认导入；
  • @EXPORT_OK里的子程序需要显式指定才能导入（比如use MyApp::Utils qw(add_numbers);）。

小提示 #

如果你的Moose包既要导出面向对象相关的特性（比如角色、属性生成器），又要导出普通工具函数，优先选择Moose::Exporter，它能完美整合Moose的其他导入逻辑，避免潜在的冲突；如果只是单纯导出几个非OO工具函数，两种方式都可以，看你个人习惯。

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