Implement handling of BREW HTTP requests

https://irclog.perlgeek.de/perl6-dev/2017-08-11#i_15002201
Raku · Aug 11, 2017 · e1f6b72 · e1f6b72
1 parent 4d648af
commit e1f6b72
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/lib/ModulesPerl6.pm b/lib/ModulesPerl6.pm
@@ -77,6 +77,11 @@ sub startup {
 
     # ROUTES
     my $r = $self->routes;
+
+    $r->any(['BREW'] => '/*coffee' => sub {
+        shift->render(text => 'Short and stout', status => 418)
+    });
+
     $r->get('/')->to('root#index')->name('home');
     $r->get($_)->to('root#search')->name('search')
         for '/search', '/s/#q', '/search/#q';