如何以编程方式知道模块是否是核心模块？

Question

我有一个应用程序中使用的模块列表。我想测试这些模块是否是Perl核心的一部分（如果需要在新服务器环境中的应用程序部署期间安装它们）。

Module::CoreList module是否是测试此功能的合适工具，如果没有，我该如何处理？

Answer 1

以下内容将告诉您模块是否是正在使用的Perl版本的核心模块。

use Module::CoreList qw( );

if (exists $Module::CoreList::version{ $] }{'CGI'}) {
   print "yes\n";
} else {
   print "no\n";
}

请注意，它仅适用于发行版的“主”模块。