lib/ballet/Commit.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36

package ballet::Commit;

use Mouse::Role;

sub create_commits {
    my ( $self, $logs_lines ) = @_;

    my @commits;

    while (scalar @$logs_lines) {
        my $id     = shift @$logs_lines;
        my $author = shift @$logs_lines;
        my $date   = shift @$logs_lines;

        shift @$logs_lines;

        my $msg      = shift @$logs_lines;
        my $messages = [];

        while ( length $msg > 0) {
            push @$messages, $msg;
            $msg = shift @$logs_lines;
        }

        push @commits,
          {
            id      => $id,
            author  => $author,
            date    => $date,
            message => join( "\n", @$messages )
          };
    }
    \@commits;
}

1;