File Coverage

blib/lib/Ukigumo/Client/VC/Git.pm

Criterion	Covered	Total	%
statement	15	36	41.6
branch	0	16	0.0
condition	0	5	0.0
subroutine	5	9	55.5
pod	0	4	0.0
total	20	70	28.5

use strict;
use warnings;
use utf8;

package Ukigumo::Client::VC::Git;
use Mouse;
use Cwd;

with 'Ukigumo::Client::Role::VC';

has log_limit => ( is => 'ro', isa => 'Int', default => 50 );

sub default_branch { 'master' }

sub get_revision {
	my $self = shift;
	$self->{revision} ||= `git rev-parse HEAD` || 'Unknown';
}

sub update {
    my ($self, $c) = @_;

    $c->logger->infof("workdir is " . Cwd::getcwd());
    unless (-d ".git") {
        $c->tee("git clone --branch $self->{branch} @{[ $self->repository ]} ./") == 0 or die "Cannot clone repository";
    }
    $c->tee("git pull -f origin $self->{branch}")==0 or die "git fail";
    $c->tee("git submodule init")==0 or die "git fail";
    $c->tee("git submodule update")==0 or die "git fail";
    $c->tee("git clean -dxf")==0 or die "git fail";
    $c->tee("git status")==0 or die "git fail";
    delete $self->{revision};
}

sub get_log {
    my ($self, $rev1, $rev2) = @_;

    my $git_log_cmd = 'git log --pretty=format:"%h %an: %s" --abbrev-commit --source ';
    if ($rev1 eq $rev2) {
        $git_log_cmd .= "-1 'HEAD'";
    }
    else {
        $git_log_cmd .= "-@{[ $self->log_limit ]} '$rev1..$rev2'";
    }

    `$git_log_cmd`;
}

1;
__END__