From ccb56a2e29f41e6d725298d683dc7fd10911fb76 Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@thenautilus.net>
Date: Sat, 22 Apr 2017 13:35:02 +0100
Subject: optional tracing role for twitter client

---
 lib/Dakkar/TweetArchive/TraceCalls.pm | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100644 lib/Dakkar/TweetArchive/TraceCalls.pm

(limited to 'lib')

diff --git a/lib/Dakkar/TweetArchive/TraceCalls.pm b/lib/Dakkar/TweetArchive/TraceCalls.pm
new file mode 100644
index 0000000..7591b69
--- /dev/null
+++ b/lib/Dakkar/TweetArchive/TraceCalls.pm
@@ -0,0 +1,13 @@
+package Dakkar::TweetArchive::TraceCalls;
+use 5.024;
+use Moo::Role;
+use experimental 'signatures';
+
+around _json_request => sub($orig,$self,
+                                $http_method,$uri,$args,
+                                @etc) {
+    warn "calling $http_method $uri";
+    return $self->$orig($http_method,$uri,$args,@etc);
+};
+
+1;
-- 
cgit v1.2.3