File Coverage

blib/lib/Plack/Middleware/Debug/GitStatus.pm

Criterion	Covered	Total	%
statement	32	56	57.1
branch	4	14	28.5
condition			n/a
subroutine	8	10	80.0
pod	1	4	25.0
total	45	84	53.5

package Plack::Middleware::Debug::GitStatus;
use strict;
use warnings;

our $VERSION = '0.04';
$VERSION = eval $VERSION;

use Plack::Util::Accessor qw( git_dir gitweb_url );
use Encode qw/ decode_utf8 encode_utf8 /;

use parent 'Plack::Middleware::Debug::Base';

sub run {
    my ( $self, undef, $panel ) = @_;

    return sub {
        my ( $branch, $info ) = $self->get_git_info;
        $panel->title( 'GitStatus' );
        $panel->nav_title( 'GitStatus' );
        $panel->nav_subtitle( 'On branch ' . $branch );
        $panel->content( $self->render_info( $info ) );
    }
}

sub render_info {
    my $self = shift;
    my $info = shift;

    my $html = qq|\n|, $info->{ sha_1 }; |; 




30




 





 





 





 





 





 



   




31




3




  
100
  




 





 





 





9



     if ( $info->{ error } ) { 




32




1





 





 





 





 





4



         $html .= qq|Error 




33




 





 





 





 





 





 



             Git reported an error$info->{ error } 




34




 





 





 





 





 





 



         |; 




35




 





 





 





 





 





 



     } 




36




 





 





 





 





 





 



     else { 




37




2





 





 





 





 





18



         $html .= qq|Git status information 




38




 





 





 





 





 





 



             Current Branch$info->{ current_branch } 




39




 





 





 





 





 





 



             Status$info->{ status } 




40




 





 





 





 





 





 



             Last commit 




41




 





 





 





 





 





 



             Date$info->{ date } 




42




 





 





 





 





 





 



             Author$info->{ author } 




43




 





 





 





 





 





 



             SHA-1$info->{ sha_1 } 




44




 





 





 





 





 





 



             Message$info->{ message } 




45




 





 





 





 





 





 



         |; 




46




 





 





 





 





 





 



   




47




2




  
100
  




 





 





 





13



         if ( my $url = $self->gitweb_url ) { 




48




1





 





 





 





 





112



             $html .= sprintf qq|View




49




 





 





 





 





 





 



         } 




50




 





 





 





 





 





 



     } 




51




 





 





 





 





 





 



   




52




3





 





 





 





 





91



     $html .= '';

    if ( $info->{ error } ) {
        $html .= qq|Error

        |;
    }
    else {
        $html .= qq|Git status information







        |;

        if ( my $url = $self->gitweb_url ) {
            $html .= sprintf qq|
        }
    }

    $html .= '

    return encode_utf8 $html;
}

sub get_git_info {
    my $self = shift;

    my ( $branch, $info ) = eval {
        if ( my $dir = $self->git_dir ) {
            if ( ! chdir $dir ) {
                die "Could not change to directory '$dir': $!";
            }
        }

        my $current_branch = `git symbolic-ref HEAD 2>&1`;

        if ( $? ) {
            die  "Git reported an error: $current_branch";
        }

        $current_branch =~ s|refs/heads/||;
        my %info = ( current_branch => $current_branch );
        $info{ status } = $self->get_git_status;

        my @ci_info = split /\0/, `git log -1 --pretty=format:%H%x00%an%x00%aD%x00%s`;
        $info{ sha_1 }   = shift @ci_info;
        $info{ author }  = decode_utf8 shift @ci_info;
        $info{ date }    = shift @ci_info;
        $info{ message } = decode_utf8 shift @ci_info;

        return $current_branch, \%info;
    };

    if ( my $err = $@ ) {
        return 'unknown', { error => $err };
    }
    else {
        return $branch, $info;
    }
}

sub get_git_status {
    my $self = shift;

    my $status = `git status -s`;
    return 'clean' unless $status;

    return $status;
}

1;

__END__