Initial commit++
This commit is contained in:
parent
f52befb644
commit
9fcc556a60
0
Dockerfile
Normal file
0
Dockerfile
Normal file
7
META6.json
Normal file
7
META6.json
Normal file
|
@ -0,0 +1,7 @@
|
|||
{
|
||||
"name": "Hyperlink-Redirect",
|
||||
"depends": ["Humming-Bird"],
|
||||
"provides": {
|
||||
"Hyperlink-Redirect": "lib/Hyperlink-Redirect.rakumod"
|
||||
}
|
||||
}
|
|
@ -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
|
||||
|
|
14
bin/hyperlink-redirect
Executable file
14
bin/hyperlink-redirect
Executable file
|
@ -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);
|
13
lib/Hyperlink-Redirect.rakumod
Normal file
13
lib/Hyperlink-Redirect.rakumod
Normal file
|
@ -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...')
|
||||
});
|
Loading…
Reference in a new issue