File Coverage

blib/lib/Git/Validate.pm

Criterion	Covered	Total	%
statement	22	25	88.0
branch	6	6	100.0
condition	3	3	100.0
subroutine	5	7	71.4
pod	2	2	100.0
total	38	43	88.3

package Git::Validate;
{
  $Git::Validate::VERSION = '0.001000';
}

# ABSTRACT: Validate Git Commit Messages

use IPC::System::Simple 'capture';
use Module::Runtime 'use_module';

use Moo;

use namespace::clean;

sub _get_commit_message { capture(qw(git log -1 --pretty=%B), $_[1]) }

sub validate_commit {
   my ($self, $commit) = @_;

   $self->validate_message(
      $self->_get_commit_message($commit)
   )
}

sub validate_message {
   my ($self, $message) = @_;

   my @lines = split /\n/, $message;

   my @e;

   # check tense?
   # check initial case?
   push @e, use_module('Git::Validate::Error::LongLine')
      ->new( line => $lines[0], max_length => 50 )
         if length $lines[0] > 50;

   push @e, use_module('Git::Validate::Error::MissingBreak')
      ->new( line => $lines[1] )
         if $lines[1];

   my $i = 2;
   for my $l (@lines[2..$#lines]) {
      $i++;
      push @e, use_module('Git::Validate::Error::LongLine')
         ->new( line => $l, line_number => $i )
            if $l =~ m/^\S/ && length $l > 72;
   }

   use_module('Git::Validate::Errors')->new(errors => \@e)
}

1;

__END__