编写测试以确保Perl脚本加载特定模块

Question

我正在使用CPAN的Test模块编写测试脚本。我喜欢测试脚本以查看我的程序是否加载了URI :: URL包。这可能吗？

Answer 1

使用模块Module::Loaded而不是解析%INC可能更好。它是perl 5.9.4的核心模块。

http://perldoc.perl.org/Module/Loaded.html

use Module::Loaded;

if (is_loaded('URI::URL')) {
  print "Is loaded\n";
} else {
  print "Is NOT loaded\n";
}

希望能解决你的问题。

Answer 2

如果我正确理解你，你想检查一段代码是否加载某个模块。

您可以通过运行一段代码，然后再检查%INC来执行此操作：

# run your script (e.g. via 'do' or 'require')
# ...

ok $INC{'URI/URL.pm'}, "URI::URL was loaded";