Select Code to Download

Select or download this

use strict;
use Perl::Critic qw(critique);
...
foreach ( @violations ) {
    print $_,"\n";
}

Select or download this

Local lexical variable "$PostTaxVLCCD" is not all lower case or all up
+per case at line 721, column 5. See pages 45,46 of PBP.

...
Local lexical variable "$Tax" is not all lower case or all upper case 
+at line 721, column 5. See pages 45,46 of PBP.

Local lexical variable "$SDRPreTax" is not all lower case or all upper
+ case at line 721, column 5. See pages 45,46 of PBP.

Select or download this

    Verbosity     Format Specification
    -----------   ----------------------------------------------------
+---
...
    10            "%m at line %l, column %c.\n  %p (Severity: %s)\n%d\
+n",
    11            "%m at line %l, near '%r'.\n  %p (Severity: %s)\n%d\
+n"