feat: Make http function accept a list of http methods

Author: Fernando Corrêa de Oliveira

Changes

@@ -1,5 +1,8 @@
 Revision history for Cro::HTTP
 
+{{NEXT}}
+    - Make http function accept a list of http methods
+
 0.8.11
     - Avoid sending a 0-byte WINDOW_UPDATE frame.
     - Permit use of updated HTTP::Pack module, Samuel Gillespie++

lib/Cro/HTTP/Router.rakumod

@@ -1282,9 +1282,17 @@ module Cro::HTTP::Router {
         $*CRO-ROUTE-SET.add-around(&cb);
     }
 
+    #| Add a request handler for a list of HTTP methods. This is useful
+    #| when there is the need to add a handler to multiple http methods
+    multi http(@methods, &handler --> Nil) is export {
+        for @methods -> Str $method {
+            http $method, &handler
+        }
+    }
+
     #| Add a request handler for the specified HTTP method. This is useful
     #| when there is no shortcut function available for the HTTP method.
-    sub http($method, &handler --> Nil) is export {
+    multi http($method, &handler --> Nil) is export {
         $*CRO-ROUTE-SET.add-handler($method, &handler);
     }
 

xt/http-custom-methods.rakutest

@@ -19,6 +19,9 @@ my $app = route {
     http 'CUSTOM', -> {
         content 'text/plain', 'CUSTOM';
     }
+    http <GET CUSTOM>, -> "list" {
+        content 'text/plain', 'GET or CUSTOM';
+    }
 }
 
 {
@@ -42,6 +45,16 @@ my $app = route {
         ok $resp ~~ Cro::HTTP::Response, 'CUSTOM using http method works';
         is await($resp.body-text), 'CUSTOM', 'Body text is correct';
     }
+
+    given await $c.get("$base/list") -> $resp {
+        ok $resp ~~ Cro::HTTP::Response, 'GET using http method works';
+        is await($resp.body-text), 'GET or CUSTOM', 'Body text is correct';
+    }
+
+    given await $c.request('CUSTOM', "$base/list") -> $resp {
+        ok $resp ~~ Cro::HTTP::Response, 'CUSTOM using http method works';
+        is await($resp.body-text), 'GET or CUSTOM', 'Body text is correct';
+    }
 }
 
 if supports-alpn() {
@@ -67,6 +80,16 @@ if supports-alpn() {
         ok $resp ~~ Cro::HTTP::Response, 'CUSTOM using http method works';
         is await($resp.body-text), 'CUSTOM', 'Body text is correct';
     }
+
+    given await $c.get("$base/list", :%ca) -> $resp {
+        ok $resp ~~ Cro::HTTP::Response, 'GET using http method works';
+        is await($resp.body-text), 'GET or CUSTOM', 'Body text is correct';
+    }
+
+    given await $c.request('CUSTOM', "$base/list", :%ca) -> $resp {
+        ok $resp ~~ Cro::HTTP::Response, 'CUSTOM using http method works';
+        is await($resp.body-text), 'GET or CUSTOM', 'Body text is correct';
+    }
 }
 
 done-testing;