t/TestApp/script/testapp_server.pl

   1 #!/usr/bin/env perl
   2
   3 use FindBin qw/$Bin/;
   4 BEGIN {
   5     $ENV{CATALYST_ENGINE} ||= 'HTTP';
   6     $ENV{CATALYST_SCRIPT_GEN} = 31;
   7     require Catalyst::Engine::HTTP;
   8 }
   9
  10 ## because this is a test
  11 use lib "$Bin/../../../lib";
  12 use Catalyst::ScriptRunner;
  13 Catalyst::ScriptRunner->run('Catalyst','Server');
  14
  15
  16 =head1 NAME
  17
  18 testapp_server.pl - Catalyst Testserver
  19
  20 =head1 SYNOPSIS
  21
  22 testapp_server.pl [options]
  23
  24  Options:
  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       -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 -restartdelay  delay between file checks
  35                       (ignored if you have Linux::Inotify2 installed)
  36    -rr -restartregex  regex match files that trigger
  37                       a restart when modified
  38                       (defaults to '\.yml$|\.yaml$|\.conf|\.pm$')
  39    -restartdirectory  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