File Coverage

blib/lib/Git/Lint/Check/Message/SummaryLength.pm

Criterion	Covered	Total	%
statement	12	21	57.1
branch	0	2	0.0
condition			n/a
subroutine	4	6	66.6
pod	1	1	100.0
total	17	30	56.6

package Git::Lint::Check::Message::SummaryLength;

use strict;
use warnings;

use parent 'Git::Lint::Check::Message';

our $VERSION = '0.015';

use constant SUMMARY_LENGTH => 50;

my $check_name        = 'summary length';
my $check_description = SUMMARY_LENGTH . ' characters or less';

sub check {
    my $self  = shift;
    my $input = shift;

    my $match = sub {
        my $lines_arref = shift;
        my $summary     = shift @{$lines_arref};
        return 1 if length $summary > SUMMARY_LENGTH;
        return;
    };

    return $self->parse(
        input => $input,
        match => $match,
        check => $check_name . ' (' . $check_description . ')',
    );
}

1;

__END__