Dogcows Code - chaz/chatty/blob - script/chatty_server.pl

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