File Coverage

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

Criterion	Covered	Total	%
statement	12	23	52.1
branch	0	2	0.0
condition			n/a
subroutine	4	6	66.6
pod	1	1	100.0
total	17	32	53.1

package Git::Lint::Check::Message::BodyLineLength;

use strict;
use warnings;

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

our $VERSION = '0.015';

use constant BODY_LENGTH => 68;

my $check_name        = 'body line length';
my $check_description = BODY_LENGTH . ' characters or less';

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

    my $match = sub {
        my $lines_arref = shift;
        my $summary     = shift @{$lines_arref};

        foreach my $line ( @{$lines_arref} ) {
            return 1 if length $line > BODY_LENGTH;
        }

        return;
    };

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

1;

__END__