split pieces into modules

1 files changed, 34 insertions, 0 deletions

diff --git a/lib/Ultramarine/Controller.pm6 b/lib/Ultramarine/Controller.pm6
new file mode 100644
index 0000000..29433fd
--- /dev/null
+++ b/lib/Ultramarine/Controller.pm6
@@ -0,0 +1,34 @@
+use v6.d.PREVIEW;
+use Cro::HTTP::Router;
+
+class Ultramarine::Controller {
+    has $.license is required;
+    has $.authorisation is required;
+
+    sub respond(*@body) {
+        response.status = 200;
+        response.set-body(@body);
+    }
+
+    submethod inner-routes() {
+        return route {
+            # this needs to be here, not in the Server because its
+            # short-circuited "unauthorised" response will be emited
+            # in an 'after' middleware, but the
+            # ResponseSerializerExtension is applied just before those
+            # middlewares, so our serialised won't be seen by the
+            # "unauthorised" response
+            before $!authorisation;
+            post -> 'ping.view' { respond [] }
+            post -> 'getLicense.view' {
+                respond [ license => [ |%($!license.status) ] ],
+            }
+        }
+    }
+
+    method routes() {
+        return route {
+            include rest => self.inner-routes(),
+        }
+    }
+}