feat: funciones impuras HTTP — response, parse, logger, router, serve

Seis funciones de servidor HTTP con tests usando httptest:
- HTTPJSONResponse: escribe JSON con Content-Type y status code
- HTTPErrorResponse: escribe HTTPError como JSON estructurado
- HTTPParseBody: decode JSON con limite de bytes y campos estrictos
- HTTPLoggerMiddleware: loguea method/path/status/duration a io.Writer
- HTTPRouter: crea ServeMux con rutas Go 1.22+ (METHOD /path)
- HTTPServe: ListenAndServe con graceful shutdown por contexto

23 tests pasando, solo stdlib net/http.

Co-Authored-By: Claude Sonnet 4.6 <noreply@anthropic.com>

functions/infra/http_parse_body.md

@@ -0,0 +1,49 @@
+---
+name: http_parse_body
+kind: function
+lang: go
+domain: infra
+version: "1.0.0"
+purity: impure
+signature: "func HTTPParseBody(r *http.Request, dst any, maxBytes int64) error"
+description: "Decodifica el body JSON de un http.Request en dst, limitando la lectura a maxBytes. Rechaza campos desconocidos y multiples objetos JSON."
+tags: [http, json, parse, body, request, server, infra]
+uses_functions: []
+uses_types: []
+returns: []
+returns_optional: false
+error_type: "error_go_core"
+imports: [encoding/json, fmt, io, net/http]
+params:
+  - name: r
+    desc: "http.Request cuyo body se va a decodificar"
+  - name: dst
+    desc: "puntero al valor donde se decodifica el JSON (ej: &myStruct)"
+  - name: maxBytes
+    desc: "limite maximo de bytes del body (ej: 1<<20 para 1 MB)"
+output: "nil si el parse fue exitoso, error si el body excede maxBytes, si el JSON es invalido, si hay campos desconocidos, o si hay multiples objetos"
+tested: true
+tests: ["decodifica JSON valido correctamente", "retorna error si el body supera maxBytes", "retorna error si el JSON es invalido", "retorna error si hay campos desconocidos"]
+test_file_path: "functions/infra/http_server_test.go"
+file_path: "functions/infra/http_parse_body.go"
+---
+
+## Ejemplo
+
+```go
+func createUser(w http.ResponseWriter, r *http.Request) {
+    var input struct {
+        Name  string `json:"name"`
+        Email string `json:"email"`
+    }
+    if err := HTTPParseBody(r, &input, 1<<20); err != nil {
+        HTTPErrorResponse(w, HTTPError{Status: 400, Code: "invalid_body", Message: err.Error()})
+        return
+    }
+    // usar input.Name, input.Email
+}
+```
+
+## Notas
+
+Usa http.MaxBytesReader para limitar el body antes de decodificar. DisallowUnknownFields rechaza campos JSON no mapeados en dst — util para validacion estricta de contratos API. Consume el body restante con io.Discard despues del decode.