gistfile1.txt

[nrh@toki ~/projects/pogo] cat .git/hooks/pre-commit
#!/usr/local/bin/perl -w

use Perl6::Slurp;

my $status = slurp '-|', 'git status';

# only want what is going to be commited
$status =~ s/Changed but not updated.*$//s;

my @dirty =
  grep { !file_is_tidy($_) }                 # not tidy
  grep {/\.(pl|pod|pm|t)$/}                  # perl file
  map  {/(?:modified|new file):\s+(\S+)/}    # to be commited
  split "\n", $status;

exit 0 unless @dirty;                        # Alles gut

warn "following files are not tidy, aborting commit\n", map "\t$_\n" => @dirty;

exit 1;

### utility functions ###############################################

sub file_is_tidy
{
  my $file = shift;

  my $original = slurp $file;
  my $tidied = slurp '-|', 'perltidy', $file, '-st';

  return $original eq $tidied;
}