File Coverage

blib/lib/GitMeta.pm

Criterion	Covered	Total	%
statement	12	20	60.0
branch	0	4	0.0
condition			n/a
subroutine	4	7	57.1
pod	0	4	0.0
total	16	35	45.7

###########################################
package GitMeta;
###########################################
use strict;
use warnings;
use Sysadm::Install qw(:all);

our $VERSION = "0.05";

###########################################
sub new {
###########################################
  my($class, %options) = @_;

  my $self = { %options };
  bless $self, $class;
}

###########################################
sub expand {
###########################################
  die "You need to implement 'expand'";
}

###########################################
sub param_check {
###########################################
  my($self, @params) = @_;

  for my $param (@params) {
    if(! exists $self->{ $param }) {
      die "Parameter $param missing";
    }
  }
}

###########################################
sub health_check {
###########################################

    # Check if we have git in $PATH
    my( $stdout, $stderr, $rc ) = tap "git", "--version";

    if( $rc ) {
        die "git not found in path";
    }
}

1;

__END__