From ab7850cf78f108b868b9030a8e05fcd1ef06fea2 Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@thenautilus.net>
Date: Sat, 16 Dec 2017 20:47:35 +0000
Subject: trace requests&responses

---
 bin/ultramarine | 16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

diff --git a/bin/ultramarine b/bin/ultramarine
index b01527c..08c11a5 100644
--- a/bin/ultramarine
+++ b/bin/ultramarine
@@ -32,13 +32,27 @@ my $ultramarine = route {
     include rest => $ultramarine_rest;
 }
 
-
+my class Trace does Cro::HTTP::Middleware::RequestResponse {
+    method process-requests(Supply $requests --> Supply) {
+        supply whenever $requests -> $req {
+            say $req.Str;
+            emit $req;
+        }
+    }
+    method process-responses(Supply $responses --> Supply) {
+        supply whenever $responses -> $res {
+            say $res.Str;
+            emit $res;
+        }
+    }
+}
 
 my Cro::Service $um = Cro::HTTP::Server.new(
     :host<192.168.1.145>,
     :port<8080>,
     application => $ultramarine,
     before => [
+               Trace,
                Ultramarine::Middleware::Authentication.new(:$users),
            ],
     add-body-serializers => [
-- 
cgit v1.2.3