我想扫描一个代码库来识别当前不可达的未定义子例程的所有实例.
举个例子：
use strict;
use warnings;
my $flag = 0;
if ( $flag ) {
undefined_sub();
}
意见
>当$flag评估为true时,将发出以下警告：
Undefined subroutine &main::undefined_sub called at - line 6
我不想依赖在运行时发出的警告来识别未定义的子例程
>严格的和警告的pragmas在这里没有帮助.使用严格的’subs’没有任何效果.
>即使以下代码片断也是沉默的
$perl -Mstrict -we 'exit 0; undefined_sub()'
解决方法
也许从
Perl::Critic
Subroutines::ProhibitCallsToUndeclaredSubs政策可以帮助
This Policy checks that every unqualified subroutine call has a matching subroutine declaration in the current file,or that it explicitly appears in the import list for one of the included modules.
这个“政策”是Perl::Critic::StricterSubs的一部分,需要安装.那里还有一些政策.这被认为是严重性4违反,所以你可以做
perlcritic -4 script.pl
并解析既不声明也不明确导入或使用的输出
perlcritic -4 --single-policy ProhibitCallsToUndeclaredSubs script.pl
一些合法用途仍然被标记,因为它需要明确导入所有的子.
这是一个静态分析仪,我认为应该符合您的目的.