view release on metacpan or  search on metacpan

utils/create_gold  view on Meta::CPAN

  my ($file) = grep -e, "$e/$test", "$e/a$test.t";
  $file ||= $test;
  print STDERR "creating golden results for $test: ";
  # print "requiring [$file]\n";
  die "Can't fork" unless defined(my $pid = fork);
  if ($pid) {
    waitpid $pid, 0;
  } else {
    no warnings "redefine";
    local *Devel::Cover::Test::run_test = sub { };
    my $t = require "./$file" or die "Can't require $file: $!";
    $t->create_gold && print STDERR "\n";
    exit;
  }
}