File Coverage

blib/lib/Mojo/Debugbar/Monitor/Git.pm

Criterion	Covered	Total	%
statement	3	35	8.5
branch			n/a
condition			n/a
subroutine	1	5	20.0
pod	2	3	66.6
total	6	43	13.9

package Mojo::Debugbar::Monitor::Git;
use Mojo::Base "Mojo::Debugbar::Monitor";

has 'icon' => '';
has 'name' => 'Git';

=head2 render
    Returns the html
=cut

sub render {
    my $self = shift;

    my $rows = '';

    foreach my $item (@{ $self->items }) {
        $rows .= sprintf(
            '



            $item->{ field }, $item->{ field }, $item->{ message }
        );
    }

    return sprintf(
        ' 




28




 





 





 





 





 





 



              




29




 





 





 





 





 





 



                  




30




 





 





 





 





 





 



                     Field 




31




 





 





 





 





 





 



                     Value 




32




 





 





 





 





 





 



                  




33




 





 





 





 





 





 



              




34




 





 





 





 





 





 



              




35




 





 





 





 





 





 



                 %s 




36




 





 





 





 





 





 



              




37




 





 





 





 





 





 



         ',







                %s


        $rows
    );
}

=head2 start
    Listen for "after_dispatch" event and if there's anything in stash for validate_tiny.errors key,
    store the field name and the error
=cut

sub start {
    my $self = shift;

    $self->app->hook(after_dispatch => sub {
        my $c = shift;

        my $home = $self->app->home;
        my $gitinfo = $self->git_info($home);
        my @items;

        push(@items, { field => $_, message => $gitinfo->{ $_ } }) for keys(%$gitinfo);

        $self->items(\@items);
    });
}

sub git_info {
    my $self = shift;
    my $home = shift;


    my $command = "/usr/bin/git --no-pager -C $home log -n1 --no-color --decorate";
    my $old_path = $ENV{'PATH'};
    $old_path =~ /(.+)/;
    $old_path = $1;
    $ENV{'PATH'} = $old_path . ':/usr/local/bin';

    my $git_output = `$command`;

    $git_output =~ //;
    my @lines = split /[\r\n]+/, $git_output;

    my $line = shift @lines;
    my ($commit, $branch) = $line =~ /commit (\w+) .+ -> ([^,]+),.+/g;


    $line = shift @lines;
    my ($author) = $line =~ /Author: (.+) <(.+)/;


    $line = shift @lines;
    my ($date) = $line =~ /Date: (.+)/;


    my $comment = join ', ', @lines;

    return {
        branch => $branch,
        commit => $commit,
        author => $author,
        date => $date,
        comment => $comment
    };


}


1;