如果在语句修饰符中声明变量,则发出警告

Mil*_*ler 10 perl

我刚刚通过以下代码行:

my $foo = $bar if $cond;
Run Code Online (Sandbox Code Playgroud)

我要解决这个问题,因为它当然会导致细微的错误.

是否有Perl版本,模块或pragma,如果达到这种类型的声明会发出警告?

目前我只是使用grep和PPI的组合扫描代码库来解决所有这些问题.到目前为止共发现了102个.但是,如果他们添加新的无效行,则自动警告其他程序员的方法将会有所帮助.