我怎么能抽出未定义的子程序？

Question

我想扫描代码库，以识别当前无法访问的未定义子例程的所有实例。

例如：

use strict;
use warnings;

my $flag = 0;
if ( $flag ) {
  undefined_sub();
}

>

Undefined subroutine &main::undefined_sub called at - line 6

我不想依赖运行时发出的警告来识别未定义的子程序

strict和warningspragmas在这里没有帮助<代码>使用严格的“subs”无效。

甚至下面的代码片段也是无声的

$ perl -Mstrict -we 'exit 0; undefined_sub()'

Answer 1

要查找对未在编译时定义的sub的调用，可以使用B:：Lint，如下所示：

a.pl：

use List::Util qw( min );

sub defined_sub { }
sub defined_later;
sub undefined_sub;

defined_sub();
defined_later();
undefined_sub();
undeclared_sub();
min();
max();              # XXX Didn't import
List::Util::max();
List::Util::mac();  # XXX Typo!

sub defined_later { }

测试：

$ perl -MO=Lint,undefined-subs a.pl
Undefined subroutine 'undefined_sub' called at a.pl line 9
Nonexistent subroutine 'undeclared_sub' called at a.pl line 10
Nonexistent subroutine 'max' called at a.pl line 12
Nonexistent subroutine 'List::Util::mac' called at a.pl line 14
a.pl syntax OK

请注意，这只是子呼叫。方法调用（如Class-

请注意，foo$x是一个有效的方法调用（使用间接方法调用语法），意思是$x-

Answer 2

你所要求的至少在某种意义上是不可能的。考虑下面的代码片段：

( rand()<0.5 ? *foo : *bar } = sub { say "Hello World!" };

foo();

有50%的可能性，这将运行正常，和50%的可能性，它将给出一个"未定义的子程序"错误。这个决定是在运行时做出的，所以在此之前不可能知道它会是什么。这当然是一个人为的例子来证明一个观点，但是运行时（或编译时）子程序的生成在实际代码中并不少见。例如，看看Moose如何添加创建方法的函数。静态源代码分析永远无法完全分析这样的代码。

B:：Lint可能是运行前所能得到的最好的东西。

Answer 3

Perl:：Critic中的子例程：：ProhibitCallsToUndeclaredSubs策略可能会有所帮助

此策略检查每个非限定子例程调用在当前文件中是否有匹配的子例程声明，或者它是否显式显示在其中一个包含模块的导入列表中。

此“策略”是需要安装的Perl::Critic::StricterSubs的一部分。那里还有一些政策。这被认为是严重违反，所以你可以做

perlcritic -4 script.pl

并为既未声明也未显式导入的解析输出，或使用

perlcritic -4 --single-policy ProhibitCallsToUndeclaredSubs script.pl

一些合法的使用仍然被标记，因为它要求显式导入所有sub。

这是一个静态分析器，我认为应该适合你的用途。