如何判断我的程序中是否实际使用了Perl模块？

Question

我最近在工作中一直在“清理狂欢”，做了很多本来应该做的修饰工作。我一直在做的一件事就是删除了导入到文件中但从未使用过的模块，或者它们在某一点被使用但不再使用了。为此，我刚刚删除导入并运行程序的测试文件。哪个真的，真的乏味。

有任何编程方式吗？没有我自己写一个程序来做它。

Answer 1

简短回答，你不能。

更长的可能更有用的答案，您不会找到一个通用工具，它将100％确定您是否真正使用您正在清除的模块。但是，您可以构建一个专用工具来帮助您进行当前在代码库上执行的手动搜索。也许尝试围绕测试套件的包装器，为您删除use语句，并忽略除Undefined subroutine &__PACKAGE__::foo的消息和访问任何模块的缺失功能时发生的其他消息之外的任何错误消息。然后，包装器可以在被清除模块的代码库上自动执行哑源扫描，以查看是否可以在不需要的模块中定义缺少的子例程foo（或其他功能）。

您可以使用Devel :: Cover对此进行补充，以确定代码的哪些部分没有测试，这样您就可以手动检查这些区域，并可能了解他们是否使用了您所使用的模块中的代码。试图清除。

由于halting problem，您无法静态判断是否有任何足够复杂的程序退出。这适用于您的问题，因为＆＃34; last＆＃34;您的程序的指令可能是使用您正在清除的模块的指令。并且由于无法确定最后一条指令是什么，或者它是否将被执行，因此无法静态地确定是否将使用该模块。此外，在动态语言中，可以在程序运行期间扩展程序，对源代码甚至编译后符号表的分析只会告诉你在运行时之前调用不需要的模块的内容（无论如何）装置）。

因此，您无法找到适用于所有程序的通用工具。但是，如果您肯定您的代码没有使用Perl的某些运行时功能，那么您可以编写一个适合您的程序的工具，该工具可以确定您要清除的模块中的代码是否实际被执行。

Answer 2

您可能会创建相关模块的替代版本，其中只包含AUTOLOAD方法（并导入，请参阅注释）。使用时，这个AUTOLOAD方法会变暗。将此模块放在包含路径中。

您可以通过使AUTOLOAD仅记录用法然后加载实际模块并转发原始函数调用来优化此方法。您还可以在@INC中首先创建一个子程序，如果需要，它会动态创建假模块。

当然，您需要一个良好的测试覆盖率来检测甚至罕见的用途。

这个概念绝对不是完美的，但它可能适用于许多模块并简化测试。