trace requests&responses

1 files changed, 15 insertions, 1 deletions

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 => [