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

Question

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

有没有任何程序化的方法来做到这一点？没有我自己写一个程序来做它.

Answer 1

简短的回答，你不能。

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

您可以使用 Devel::Cover 来补充这一点，以确定代码的哪些部分没有测试，这样您就可以手动检查这些区域，并可能深入了解它们是否正在使用您尝试清除的模块中的代码。

由于停止问题，您无法静态地确定任何具有足够复杂性的程序是否会退出。这适用于您的问题，因为程序的“最后”指令可能是使用您要清除的模块的指令。而且由于无法确定最后一条指令是什么，或者它是否会被执行，因此不可能静态地确定是否将使用该模块。此外，在动态语言中，可以在运行期间扩展程序，对源代码甚至编译后符号表的分析只会告诉您在运行时之前调用不需要的模块的内容（无论这意味着什么）。

因此，您找不到适用于所有程序的通用工具。但是，如果您确信您的代码没有使用 Perl 的某些运行时功能，您也许可以编写一个适合您的程序的工具，该工具可以确定您要清除的模块中的代码是否会真正执行。