Allow arbitrary HTTP methods

cask/src/cask/main/Main.scala

@@ -120,12 +120,16 @@ object Main{
     )
   }
 
-  def prepareRouteTries(allRoutes: Seq[Routes]) = {
+  def prepareRouteTries(allRoutes: Seq[Routes]): Map[String, DispatchTrie[(Routes, EndpointMetadata[_])]] = {
     val routeList = for{
       routes <- allRoutes
       route <- routes.caskMetadata.value.map(x => x: EndpointMetadata[_])
     } yield (routes, route)
-    Seq("get", "put", "post", "websocket")
+
+    val allMethods: Set[String] =
+      routeList.flatMap(_._2.endpoint.methods).map(_.toLowerCase).toSet
+
+    allMethods
       .map { method =>
         method -> DispatchTrie.construct[(Routes, EndpointMetadata[_])](0,
           for ((route, metadata) <- routeList if metadata.endpoint.methods.contains(method))

example/httpMethods/app/src/HttpMethods.scala

@@ -6,5 +6,15 @@ object HttpMethods extends cask.MainRoutes{
     else "show_the_login_form"
   }
 
+  @cask.route("/session", methods = Seq("delete"))
+  def session(request: cask.Request) = {
+    "delete_the_session"
+  }
+
+  @cask.route("/session", methods = Seq("secretmethod"))
+  def admin(request: cask.Request) = {
+    "security_by_obscurity"
+  }
+
   initialize()
 }

example/httpMethods/app/test/src/ExampleTests.scala

@@ -20,6 +20,8 @@ object ExampleTests extends TestSuite{
     test("HttpMethods") - withServer(HttpMethods){ host =>
       requests.post(s"$host/login").text() ==> "do_the_login"
       requests.get(s"$host/login").text() ==> "show_the_login_form"
+      requests.delete(s"$host/session").text() ==> "delete_the_session"
+      requests.get.copy(verb="secretmethod")(s"$host/session").text() ==> "security_by_obscurity"
     }
   }
 }