Initial commit++

META6.json

@@ -0,0 +1,7 @@
+{
+    "name": "Hyperlink-Redirect",
+    "depends": ["Humming-Bird"],
+    "provides": {
+        "Hyperlink-Redirect": "lib/Hyperlink-Redirect.rakumod"
+    }
+}

README.md

@@ -1,3 +1,7 @@
 # Hyperlink-Redirect
 
 A "useful" tool for turning hyperlinks into redirects in the name of shortening hyperlinks! 🧠 🧑‍🔬
+
+## TODO
+
+1. Fix my `.emacs` to style stuff in a way that is not in fact insane

bin/hyperlink-redirect

@@ -0,0 +1,14 @@
+#!/usr/bin/env raku
+
+# It is important that you import App::MyService after
+# Humming-Bird::Core to avoid having some weird side-effects with
+# route declarations in your service
+
+use v6.d;
+use Humming-Bird::Core;
+
+# Local libs
+use lib 'lib';
+use Hyperlink-Redirect;
+
+listen(3000);

lib/Hyperlink-Redirect.rakumod

@@ -0,0 +1,13 @@
+use v6.d;
+
+use Humming-Bird::Core;
+
+# Normally would 'use' local libs here for Controller and Model and
+# what not but keeping it simple for now...
+
+# Must set the root path lest yet miss setting $!root
+my $router = Router.new(root => '/');
+
+$router.get(-> $request, $response {
+    $response.write('testing 123...')
+});