That is not nearly as useful as it only catches trivial cases:

> perl -w
use strict;
my $bool = 0;
if( $bool = 0 ) {
        print "never\n";
}
<EOF>
Found = in conditional, should be == at - line 3.

> perl -w
use strict;
my $bool = 0;
sub test { return 0 == @ARGV }
if( $bool = test() ) {
        print "Match\n";
}
<EOF>
Match
[download]