File Coverage

lib/Git/Wrapper/Plus/Branches.pm

Criterion	Covered	Total	%
statement	47	49	95.9
branch	5	6	83.3
condition			n/a
subroutine	16	16	100.0
pod	3	3	100.0
total	71	74	95.9

use 5.008;    # utf8
use strict;
use warnings;
use utf8;

package Git::Wrapper::Plus::Branches;
$Git::Wrapper::Plus::Branches::VERSION = '0.004010';
# ABSTRACT: Extract branches from Git

our $AUTHORITY = 'cpan:KENTNL'; # AUTHORITY











































use Moo qw( has );
use Git::Wrapper::Plus::Util qw(exit_status_handler);











has 'git' => ( is => ro =>, required => 1 );
has 'refs' => ( is => ro =>, lazy => 1, builder => 1 );

sub _build_refs {
  my ($self) = @_;
  require Git::Wrapper::Plus::Refs;
  return Git::Wrapper::Plus::Refs->new( git => $self->git );
}

sub _to_branch {
  my ( undef, $ref ) = @_;
  require Git::Wrapper::Plus::Ref::Branch;
  return Git::Wrapper::Plus::Ref::Branch->new_from_Ref($ref);
}

sub _to_branches {
  my ( $self, @refs ) = @_;
  return map { $self->_to_branch($_) } @refs;
}











sub branches {
  my ( $self, ) = @_;
  return $self->get_branch(q[**]);
}





















sub get_branch {
  my ( $self, $name ) = @_;
  return $self->_to_branches( $self->refs->get_ref( 'refs/heads/' . $name ) );
}

sub _current_branch_name {
  my ($self) = @_;
  my (@current_names);
  return unless exit_status_handler(
    sub {
      (@current_names) = $self->git->symbolic_ref('HEAD');
    },
    {
      128 => sub { return },
    },
  );
  for (@current_names) {
    $_ =~ s{\A refs/heads/ }{}msx;
  }
  return @current_names;

}














sub current_branch {
  my ( $self, ) = @_;
  my ($ref) = $self->_current_branch_name;
  return if not $ref;
  my (@items) = $self->get_branch($ref);
  return shift @items if 1 == @items;
  require Carp;
  Carp::confess( 'get_branch(' . $ref . ') returned multiple values. Cannot determine current branch' );
}

no Moo;

1;

__END__