view release on metacpan or  search on metacpan

bin/vw-bus  view on Meta::CPAN

  close(PID);
  return [$pid_file, $pid];
}

# a continuity-based http server
sub continuity_server {
  my ($app) = @_;
  chdir($app->{dir});
  my $harness = "$app->{dir}/vw_harness.pl";
  if (-e $harness) {
    local @ARGV = %$app;
    eval { do $harness; };
    # ...and never return.
    # But if it fails for some reason...
    my $error = $@ || "$harness could not be started.";
    syslog(LOG_ERR, "$app->{app}: $error");
  } else {
    syslog(LOG_ERR, "$app->{app}: $harness was not found.");
  }
  exit 1;
}