我正在开发一个应用程序,必须逐个替换现有的意大利面条代码.为了实现这一点,我有一个调度程序,在匹配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 $file\n";
my @code = "1"; # Fake module must return true
return sub { $_ = shift @code; defined $_ };
}
}
require HTTP::Foo;
use HTTPBar;
请注意,这也是模拟使用,因为它基于require.