view release on metacpan or  search on metacpan

eg/gitmeta-update  view on Meta::CPAN

if($opts{v}) {
  Log::Log4perl->easy_init($DEBUG);
} else {
  Log::Log4perl->easy_init({
      level    => $INFO,
      category => "main",
  });
}

my($gmf_repo, $gmf_path, 
   $local_dir) = @ARGV;

if(!defined $local_dir) {
    # alternative call: $0 $gmf $local_dir
    undef $gmf_repo;
    ($gmf_path, $local_dir) = @ARGV;
}

GitMeta->health_check();

die "usage: $0 [gmf-repo] gmf-path local-dir" 
  unless defined $local_dir;

main();

###########################################