Perl包在脚本文件中定义，如何有包导出子程序？

Question

鉴于以下情况：

package My::Pack;

use Exporter::Easy (
    OK => [ qw(pack_func) ],
);

sub pack_func {
    ...
}

package main;
<script here that uses pack_func>

如何导入我想要的符号？

use无法工作，因为它正在寻找另一个要打开的文件。require不支持use用于指定所需符号的语法。

我唯一的选择是在脚本中输入My::Pac::pack_func()，还是通过TypeGLOB转让人网络手动导入符号？

Answer 1

声明：

use Some::Module qw(foo bar);

是完全等价于

BEGIN {
    require Some::Module;
    Some::Module->import( qw(foo bar) );
}

在您的示例中，My::Pack模块的代码已经加载，因此不需要require。因此，您可以这样做：

BEGIN { My::Pack->import( qw(pack_func) ) }