[英]PERL5LIB, @INC and library priority for testing
当.pl
或.pm
use lib
或unshift @INC
时测试perl代码时,在覆盖perl lib时遇到一些困难,我的问题是:
在生产代码中
use lib
或unshift @INC
是一个坏主意,因为它们很难测试?prove -lvr
也不能覆盖这些。
代码test.pl
push @INC, '/push/inc/lowest_priority';
use lib "/top/priority/use/lib/second_priority";
unshift @INC, "/unshift/inc/lib/first_priority";
foreach my $inc (@INC){
print "INC=>$inc\n";
}
设置perl环境
export PERL5LIB=/export/PERL5LIB/env/lib:$PERL5LIB
perl -I/cmd/Iinclude/lib/ test.pl
INC=>/unshift/inc/lib/first_priority
INC=>/top/priority/use/lib/second_priority
INC=>/cmd/Iinclude/lib/
INC=>/export/PERL5LIB/env/lib
INC=>/usr/local/lib64/perl5
INC=>/usr/local/share/perl5
INC=>/usr/lib64/perl5/vendor_perl
INC=>/usr/share/perl5/vendor_perl
INC=>/usr/lib64/perl5
INC=>/usr/share/perl5
INC=>/push/inc/lowest_priority
除非没有其他选择,否则我不会硬编码路径。
通常,您不希望以其他方式对可以提供给程序的内容进行硬编码,以便它可以响应所处的任何环境,而不仅仅是对开发环境的响应。 这些环境之一可能是您的测试环境。
您可以从程序外部设置库搜索路径,这使其更加灵活。
而且,由于您对它们进行了硬编码并在运行时添加它们,因此它们将遵循您之前设置的所有内容。 在您的设置中会发生以下情况:
@INC
开始。 use lib
并立即执行该编译指示。 现在/top/priority/use/lib/second_priority
在@INC
的开头。 /top/priority/use/lib/second_priority
是@INC
的第一件事。 在那儿,后续use
调用将寻找东西。 push
并执行。 现在/push/inc/lowest_priority
是@INC
的最后一个元素。 use lib
。 unshift
并执行该动作。 现在/unshift/inc/lib/first_priority
是@INC
的第一项。 require
调用(运行时功能)将首先在/unshift/inc/lib/first_priority
。 我不知道您期望在哪里找到期望加载的库,但是您必须提供它的完整路径。 lib /下可能有其他重要的目录,您尚未考虑。
我可能会误解您的问题,但是local::lib
允许您“手动”调整模块路径。 您应该能够使用它来控制用于测试环境的路径。
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.