script/gitalist_server.pl

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