File Coverage

blib/lib/Git/Repository/Plugin/Gerrit.pm

Criterion	Covered	Total	%
statement	29	40	72.5
branch	4	6	66.6
condition			n/a
subroutine	8	11	72.7
pod	1	1	100.0
total	42	58	72.4

package Git::Repository::Plugin::Gerrit;

use 5.008005;
use strict;
use warnings;

our $VERSION = "0.05";

use parent qw(Git::Repository::Plugin);

use Git::Repository qw(Log);

sub _keywords { qw(
    find_change
) }

sub import {
    require Git::Repository::Log;
    my $attr = 'Git::Repository::Log::change_id';
    no strict 'refs';
    *$attr = sub {
        my $self = shift;
        return ($self->{message} =~ /Change-Id: (I\S{40})/)[0];
    };
}

sub find_change {
    my $repo = shift;
    my $change_id = __PACKAGE__->_normalize_change_id(shift);
    my @extra = @_;
    my $pattern = "Change-Id: ${change_id}";
    my @logs = $repo->log("--grep=$pattern", @extra);
    if (@logs > 1) {
        die 'Non-unique Change-Id!';
    }
    return shift @logs;
}

sub _normalize_change_id {
    my $package = shift;
    my $change_id = shift;

    my $orig_change_id = $change_id;

    $change_id =~ s/^Change-Id: //;

    if (length($change_id) == 40) {
        $change_id = 'I' . $change_id;
    }

    unless (length($change_id) == 41) {
        die "Unable to normalize Change-Id '$orig_change_id'";
    }

    return $change_id;
}

1;
__END__