optional tracing role for twitter client

1 files changed, 13 insertions, 0 deletions

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;