view release on metacpan or  search on metacpan

t/110proxy.t  view on Meta::CPAN

if (!defined $pid) {
  die "Fork failed!";
}

my $test_port = 2053;

if (!$pid) {
  # Child starts server.

  # I hope this port isn't being used.
  local @ARGV
    =("--Pidfile" => "test.pid",
      "--port" => $test_port, 
      "--foreground" );
  # Avoid leaving stray servers hanging around.
  alarm(60);
  $SIG{ALRM} = sub {kill "TERM", $$};
  run Net::DNSServer {
    priority => [$resolver],
    port => $test_port,
  };