#internal method to get file content of this commit
my $content = read_file_content($file_name);
my @violations = critique({-profile => 'perlcritic.conf'}
, \$content);
    
# report violations
foreach my $crit (@violations){
    print STDERR "[$file_name] " . $crit->to_string . "\tsource: " . 
$crit->source . "\n";
}

##</code><code>##

[CodeLayout::RequireTidyCode]
perltidyrc = /svn/hooks/perltidy.conf

##</code><code>##

-bl     # braces on new lines
-l=80 #80 col width
-i=4  #4 char per indent
-ce    # cuddled else

##</code><code>##

....
if(1)
{
 print "1";
}
else
{
 print "2";
}
...