File Coverage

blib/lib/Banal/Dist/Util/Git.pm

Criterion	Covered	Total	%
statement	20	37	54.0
branch	0	14	0.0
condition	0	9	0.0
subroutine	7	8	87.5
pod	0	1	0.0
total	27	69	39.1

use 5.014;  # because we use the 'state' and  'non-destructive substitution' feature (s///r)
use strict;
use warnings;

package Banal::Dist::Util::Git;
# vim: set ts=2 sts=2 sw=2 tw=115 et :
# ABSTRACT: General purpose utility collection for
# KEYWORDS: author utility

our $VERSION = '0.004';
# AUTHORITY

use Path::Tiny;

use Exporter::Shiny qw(
  detect_settings_from_git
);

use namespace::autoclean;


# Detect settings (like remote 'server') from the local git repository
sub detect_settings_from_git {
  my  %args = @_;
  my  $dir  = $args{dir} || Path::Tiny->cwd;
  my  %detected;

  REMOTE: {
    eval {
      my  $git  = Git::Wrapper->new( $dir );
      my @lines  = $git->remote( {v=>1} );
      /^(\S+)\s+(\S+)\s+\(fetch\)$/i and $detected{remotes}{$1}=$2 foreach (@lines);
    };

    last REMOTE unless ( exists $detected{remotes} ) && ( exists $detected{remotes}{origin} );
    last REMOTE unless $detected{remotes}{origin} =~ qr{^ (https?|git):/(?.*)?/
                                            (? .* ) / (:? (? .*) /)? (? .*) \.git$}xi;
    my ($domain, $folder) = ( $+{domain}, $+{folder} );

    if ( $domain =~ /^((?github)\.com) | ((?bitbucket)\.org)$/xi) {
      my $server = $detected{server} = $+{server};
      $detected{"server_amr_opt_${server}"}= "user:${folder}";  # for [AutoMetaResources]
    } elsif ( $domain =~ /^git\.moose\.perl\.org$/xi ) {
      $detected{server} = 'gitmo';
    } elsif ( $domain =~ /^git\.shadowcat\.co\.uk$/xi ) {
      $detected{server} = $folder  if $folder =~ /^catagits|p5sagit|dbsrgits$/;
    }
  }
  wantarray ? (%detected) : \%detected;
}


1;

__END__