如何在单个文件中定义相互依赖的多个Perl包并正常加载

报错原因 #

你遇到的报错是Perl的use语句的执行机制导致的：use属于编译期指令，执行时会直接在@INC路径中搜索对应.pm文件，哪怕同一个文件内已经定义了同名包，编译阶段包定义还未被加载时就会触发找不到文件的错误。

测试代码修复方案 #

你可以将包定义提前放入BEGIN块，保证编译阶段就能读取到包定义，示例如下：

# 优先在编译期加载所有依赖包
BEGIN {
    package Foo::Bar;
    # 包内原有逻辑写在这里
    1; # 包末尾必须返回真值，否则会加载失败
}

BEGIN {
    package Foo::Baz;
    # 此时Foo::Bar已经在编译期完成定义，可直接调用，也可保留require语句保证逻辑兼容
    require Foo::Bar;
    # 包内原有逻辑写在这里
    1;
}

use Foo::Baz;
# 其余业务代码

单文件打包实现方案 #

针对你需要把fmtutil.pl及其依赖打包为单个可执行文件的需求，有两种可行方案：

方案1：手动拼接 #

1. 按依赖顺序整理包：先放置被其他包依赖的模块，比如先放TLConfig.pm的完整代码，再放TLUtils.pm的完整代码，最后放fmtutil.pl的代码
2. 给每个模块的完整代码外层包裹BEGIN {}块，保留每个模块末尾的1;返回值语句
3. 注释掉所有模块里原本的use TeXLive::TLConfig、use TeXLive::TLUtils这类引入语句，避免重复搜索文件

方案2：自动工具打包（更稳妥，无需手动改代码） #

可以用Perl生态专门用于单文件打包的fatpack工具实现：

1. 安装fatpack：执行cpanm App::FatPacker
2. 新建lib/TeXLive/目录，把TLConfig.pm、TLUtils.pm放入该目录
3. 执行打包命令：fatpack pack fmtutil.pl > fmtutil-standalone.pl
   生成的fmtutil-standalone.pl就是包含所有依赖的单文件可执行脚本，可直接运行。

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