File Coverage

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

Criterion	Covered	Total	%
statement	32	32	100.0
branch	4	4	100.0
condition			n/a
subroutine	10	10	100.0
pod	4	4	100.0
total	50	50	100.0

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

use 5.008005;
use strict;
use warnings;

our $VERSION = "0.04";

sub _keywords { qw(
    is_bare
    has_ref
    has_branch
    has_tag
) }

sub is_bare {
    my $repo = shift;
    return _bool_config($repo, 'core.bare');
}

sub has_ref {
    my $repo = shift;
    my $ref_name = shift;
    $repo->run('show-ref', '--verify', '--quiet', $ref_name);
    return ($? == 0);
}

sub has_branch {
    my $repo = shift;
    my $branch_name = shift;

    # normalize branch name to prevent ambiguous matches to tags, etc.
    unless (index($branch_name, 'refs/heads/') == 0) {
        $branch_name = 'refs/heads/' . $branch_name;
    }

    return $repo->has_ref($branch_name);
}

sub has_tag {
    my $repo = shift;
    my $tag_name = shift;

    # normalize tag name to prevent ambiguous matches to tags, etc.
    unless (index($tag_name, 'refs/tags/') == 0) {
        $tag_name = 'refs/tags/' . $tag_name;
    }

    return $repo->has_ref($tag_name);
}

sub _bool_config {
    my $repo = shift;
    my $key = shift;
    my $bare = $repo->run('config', '--bool', $key);
    return ($bare eq 'true');
}

1;

__END__