如何Mock Perl的unlink函数？及相关执行问题排查

为什么use Foo;放BEGIN块前Mock不生效？ #

Perl里use Foo;等价于BEGIN { require Foo; Foo->import(); }——这意味着Foo模块的加载和初始化会在编译阶段就完成。

如果你的Mock逻辑写在BEGIN块里，但use Foo;放在这个块前面，执行顺序就成了：

1. 编译阶段先跑use Foo;对应的BEGIN块，Foo模块里的代码直接绑定了原生的unlink；
2. 之后才执行你的Mock BEGIN块，替换unlink，但Foo模块早已经用了原生函数，自然不会触发Mock。

是不是只要调整导入和BEGIN块的顺序就行？ #

没错，核心就是让Mock操作抢在目标模块加载前完成。正确的顺序是：

1. 先写Mock unlink的BEGIN块；
2. 再写use Foo;。

给个可运行的测试示例：

use Test::More tests => 1;

# 编译阶段就替换unlink，确保Foo加载时用的是Mock版本
BEGIN {
    my @deleted;
    # 覆盖全局的unlink
    *CORE::GLOBAL::unlink = sub {
        push @deleted, @_;
        return scalar @deleted; # 模拟返回删除成功的数量
    };
    # 提供测试用的查询接口
    *get_deleted_files = sub { @deleted };
}

# 现在加载Foo，此时它的代码里调用的unlink已经是Mock的了
use Foo;

# 执行Foo里的删除逻辑
Foo::cleanup_files();

# 验证是否删除了预期文件
is_deeply([get_deleted_files()], ['tmp.dat', 'cache.lock'], '删除了正确的目标文件');

顺带解决之前的参数为空、未定义警告问题 #

你之前遇到的问题，大概率是Mock时机不对或者命名空间没覆盖对：

• 必须在编译阶段（BEGIN块内）替换*CORE::GLOBAL::unlink，不然目标模块加载时还是绑定原生函数；
• Mock函数要显式接收@_参数，才能捕获传入的文件名；
• 出现unlink未定义警告，一般是Mock函数没正确赋值到CORE::GLOBAL命名空间，或者Mock生效前就调用了unlink。

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