perl - 有没有办法在 Perl 中模拟内置的 require 函数？

Question

我正在开发一个应用程序，它必须逐个替换现有的意大利面条代码。为了实现这一点，我有一个调度程序，它在匹配 URI 时运行所需的 HTTP 资源，否则使用旧的 HTTP 资源类。

所以，这个遗留的 HTTP 资源必须require旧系统的入口点文件，我想弄清楚如何测试这个过程。我现在看到的方式是我想替换原来的require函数，并检查它是否已使用适当的文件名调用。

这是可能的，如果不是，也许有更好的方法来做到这一点？

Answer 1

覆盖 require在一个包中:

use subs 'require';  # imports `require` so it can be overridden

sub require {print "mock require: @_\n"}

覆盖 require全局:

BEGIN {
    *CORE::GLOBAL::require = sub {print "mock require: @_\n"}
}

进而:

require xyz;           # mock require: xyz.pm

require Some::Module;  # mock require: Some/Module.pm