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

发布时间：2020-12-15 23:30:47 所属栏目：大数据来源：网络整理

导读：我正在开发一个应用程序,必须逐个替换现有的意大利面条代码.为了实现这一点,我有一个调度程序,在匹配URI时运行所需的HTTP资源,否则使用旧的HTTP资源类. 因此,这个遗留的HTTP资源必须要求旧系统的入口点文件,我正在试图弄清楚如何测试这个过程.我现在看到它的

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

因此,这个遗留的HTTP资源必须要求旧系统的入口点文件,我正在试图弄清楚如何测试这个过程.我现在看到它的方式是我想用mock子程序替换原始的require函数,并检查它是否已用适当的文件名调用.

这是可能的,如果没有,也许还有更好的方法吗？

解决方法

覆盖require全局的更好方法可能是在@INC中安装一个钩子.这个鲜为人知的功能在 the require documentation年底描述.

这是一个简单的示例,它拦截名称以HTTP开头的模块的任何请求：

BEGIN {
  unshift @INC,sub {
    my ($self,$file) = @_;
    return unless $file =~ /^HTTP/;
    print "Creating mock $filen";
    my @code = "1"; # Fake module must return true
    return sub { $_ = shift @code; defined $_ };
  }
}

require HTTP::Foo;
use HTTPBar;

请注意,这也是模拟使用,因为它基于require.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!