File Coverage

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

Criterion	Covered	Total	%
statement	43	44	97.7
branch	12	14	85.7
condition			n/a
subroutine	7	7	100.0
pod	3	3	100.0
total	65	68	95.5

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

use strict;
use warnings;

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

use Git::Lint::Command;

our $VERSION = '0.015';

sub message {
    my $self = shift;
    my $args = {
        file => undef,
        @_,
    };

    foreach ( keys %{$args} ) {
        die "$_ is a required argument"
            unless defined $args->{$_};
    }

    my $lines_arref = [];
    open( my $message_fh, '<', $args->{file} )
        or die 'open: ' . $args->{file} . ': ' . $!;
    while ( my $line = <$message_fh> ) {
        chomp $line;
        push @{$lines_arref}, $line;
    }
    close($message_fh);

    unless ($lines_arref) {
        exit 0;
    }

    return $lines_arref;
}

sub format_issue {
    my $self = shift;
    my $args = {
        check => undef,
        @_,
    };

    foreach ( keys %{$args} ) {
        die "$_ is a required argument"
            unless defined $args->{$_};
    }

    my $message = $args->{check};

    return { message => $message };
}

sub parse {
    my $self = shift;
    my $args = {
        input => undef,
        match => undef,
        check => undef,
        @_,
    };

    foreach ( keys %{$args} ) {
        die "$_ is a required argument"
            unless defined $args->{$_};
    }

    die 'match argument must be a code ref'
        unless ref $args->{match} eq 'CODE';

    my @issues;
    if ( $args->{match}->( $args->{input} ) ) {
        push @issues, $self->format_issue( check => $args->{check}, );
    }

    return @issues;
}

1;

__END__