My dotfiles. Period.

12345678910111213
  1. #!/usr/bin/perl
  2. use Perl::Critic;
  3. my $file = shift;
  4. my $critic = Perl::Critic->new();
  5. my @violations = $critic->critique($file);
  6. for (@violations) {
  7. my ($l, $c) = m/.* at line (\d+), column (\d+)\./;
  8. $_ =~ s/ at line \d+, column \d+\././;
  9. print "$file:$l:$c:$_";
  10. }