bin/sgn_server.pl

   1 #!/usr/bin/env perl
   2
   3 BEGIN {
   4     $ENV{CATALYST_SCRIPT_GEN} = 40;
   5 }
   6
   7 unless( grep /^(-rr|--restart_regex)$/, @ARGV ) {
   8     unshift @ARGV, ( '--restart_regex' => '\.conf|\.p[ml]$' );
   9 }
  10
  11 use Catalyst::ScriptRunner;
  12
  13 Catalyst::ScriptRunner->run('SGN', 'Server');
  14
  15 1;
  16
  17 =head1 NAME
  18
  19 sgn_server.pl - Catalyst Test Server
  20
  21 =head1 SYNOPSIS
  22
  23 sgn_server.pl [options]
  24
  25    -d --debug           force debug mode
  26    -f --fork            handle each request in a new process
  27                         (defaults to false)
  28    -? --help            display this help and exits
  29    -h --host            host (defaults to all)
  30    -p --port            port (defaults to 3000)
  31    -k --keepalive       enable keep-alive connections
  32    -r --restart         restart when files get modified
  33                         (defaults to false)
  34    -rd --restart_delay  delay between file checks
  35                         (ignored if you have Linux::Inotify2 installed)
  36    -rr --restart_regex  regex match files that trigger
  37                         a restart when modified
  38                         (defaults to '\.yml$|\.yaml$|\.conf|\.pm$')
  39    --restart_directory  the directory to search for
  40                         modified files, can be set mulitple times
  41                         (defaults to '[SCRIPT_DIR]/..')
  42    --follow_symlinks    follow symlinks in search directories
  43                         (defaults to false. this is a no-op on Win32)
  44    --background         run the process in the background
  45    --pidfile            specify filename for pid file
  46
  47  See also:
  48    perldoc Catalyst::Manual
  49    perldoc Catalyst::Manual::Intro
  50
  51 =head1 DESCRIPTION
  52
  53 Run a Catalyst Testserver for this application.
  54
  55 =head1 AUTHORS
  56
  57 Catalyst Contributors, see Catalyst.pm
  58
  59 =head1 COPYRIGHT
  60
  61 This library is free software. You can redistribute it and/or modify
  62 it under the same terms as Perl itself.
  63
  64 =cut
  65