view release on metacpan or  search on metacpan

bin/combustier  view on Meta::CPAN

  die "must have site directory argument\n" unless($site);
  die "'$site' does not exist" unless(-e $site);


  $ENV{COMBUST_REQUEST_CLASS} = 'Spontaneously';

  my $cbroot = $ENV{CBROOT} = $opt->combust;
  die "must have a '$cbroot' directory\n" unless(-e $cbroot);
  unshift(@INC, "$cbroot/lib");

  my $conf = $ENV{CBCONFIG} = 'combust.conf';
  unless(-e $conf) {
    open(my $fh, '>', $conf) or die "cannot write '$conf'";
    print $fh "servername = localhost\n";
  }

  my $server = Combust::Spontaneously->new(
    port => $opt->port,
    site => $site,
  );
  $server->run;