Add Rewrite for :: URLs to fetch $COLON$COLON

Raku · Jul 14, 2016 · 5cabd6e · 5cabd6e
1 parent ee3c430
commit 5cabd6e
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/app.pl b/app.pl
@@ -32,6 +32,14 @@
     );
 }
 
+app->hook(
+    before_dispatch => sub {
+        my $c = shift;
+        $c->req->url->path( $c->req->url->path =~ s/::/\$COLON\$COLON/gr )
+            if $c->req->url->path =~ m{^/type/};
+    }
+);
+
 ## ROUTES
 
 get '/' => sub { shift->reply->static('/index.html') };