view release on metacpan or  search on metacpan

t/Util.pm  view on Meta::CPAN

  $output = qx{git config --global --get-regexp user.* 2>/dev/null};
  $output =~ s![\n\r]!!g;
  plan skip_all => "Cannot run with unknown git user: $output"
    unless $output =~ /user\.email/ and $output =~ /user\.name/;
}

sub import {
  my $class  = shift;
  my $caller = caller;

  strict->import;
  warnings->import;
  eval "package $caller; use Test::More;1" or die $@;
}

1;