forked from lix-project/hydra
Add hydra-dev-server which uses the classic Catalyst server
This, in turns allows - Using --restart for reloading the perl code - Printing traces on error
This commit is contained in:
parent
e0d8dcfe2d
commit
04ff9e217b
7
src/lib/Hydra/Script/DevServer.pm
Normal file
7
src/lib/Hydra/Script/DevServer.pm
Normal file
|
@ -0,0 +1,7 @@
|
|||
package Hydra::Script::DevServer;
|
||||
use Moose;
|
||||
use namespace::autoclean;
|
||||
|
||||
extends 'Catalyst::Script::Server';
|
||||
|
||||
1;
|
59
src/script/hydra-dev-server
Executable file
59
src/script/hydra-dev-server
Executable file
|
@ -0,0 +1,59 @@
|
|||
#! /usr/bin/env perl
|
||||
|
||||
BEGIN {
|
||||
$ENV{CATALYST_SCRIPT_GEN} = 40;
|
||||
}
|
||||
|
||||
use Catalyst::ScriptRunner;
|
||||
Catalyst::ScriptRunner->run('Hydra', 'DevServer');
|
||||
|
||||
1;
|
||||
|
||||
=head1 NAME
|
||||
|
||||
hydra_server.pl - Catalyst Test Server
|
||||
|
||||
=head1 SYNOPSIS
|
||||
|
||||
hydra_server.pl [options]
|
||||
|
||||
-d --debug force debug mode
|
||||
-f --fork handle each request in a new process
|
||||
(defaults to false)
|
||||
-? --help display this help and exits
|
||||
-h --host host (defaults to all)
|
||||
-p --port port (defaults to 3000)
|
||||
-k --keepalive enable keep-alive connections
|
||||
-r --restart restart when files get modified
|
||||
(defaults to false)
|
||||
-rd --restart_delay delay between file checks
|
||||
(ignored if you have Linux::Inotify2 installed)
|
||||
-rr --restart_regex regex match files that trigger
|
||||
a restart when modified
|
||||
(defaults to '\.yml$|\.yaml$|\.conf|\.pm$')
|
||||
--restart_directory the directory to search for
|
||||
modified files, can be set multiple times
|
||||
(defaults to '[SCRIPT_DIR]/..')
|
||||
--follow_symlinks follow symlinks in search directories
|
||||
(defaults to false. this is a no-op on Win32)
|
||||
--background run the process in the background
|
||||
--pidfile specify filename for pid file
|
||||
|
||||
See also:
|
||||
perldoc Catalyst::Manual
|
||||
perldoc Catalyst::Manual::Intro
|
||||
|
||||
=head1 DESCRIPTION
|
||||
|
||||
Run a Catalyst Testserver for this application.
|
||||
|
||||
=head1 AUTHORS
|
||||
|
||||
Catalyst Contributors, see Catalyst.pm
|
||||
|
||||
=head1 COPYRIGHT
|
||||
|
||||
This library is free software. You can redistribute it and/or modify
|
||||
it under the same terms as Perl itself.
|
||||
|
||||
=cut
|
Loading…
Reference in a new issue