From 04ff9e217baa13c231835a05163759038bad2f8e Mon Sep 17 00:00:00 2001
From: Samuel Dionne-Riel <samuel@dionne-riel.com>
Date: Tue, 22 Jan 2019 20:34:21 -0500
Subject: [PATCH] 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
---
 src/lib/Hydra/Script/DevServer.pm |  7 ++++
 src/script/hydra-dev-server       | 59 +++++++++++++++++++++++++++++++
 2 files changed, 66 insertions(+)
 create mode 100644 src/lib/Hydra/Script/DevServer.pm
 create mode 100755 src/script/hydra-dev-server

diff --git a/src/lib/Hydra/Script/DevServer.pm b/src/lib/Hydra/Script/DevServer.pm
new file mode 100644
index 00000000..72934081
--- /dev/null
+++ b/src/lib/Hydra/Script/DevServer.pm
@@ -0,0 +1,7 @@
+package Hydra::Script::DevServer;
+use Moose;
+use namespace::autoclean;
+
+extends 'Catalyst::Script::Server';
+
+1;
diff --git a/src/script/hydra-dev-server b/src/script/hydra-dev-server
new file mode 100755
index 00000000..8d30624f
--- /dev/null
+++ b/src/script/hydra-dev-server
@@ -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