From 72566686258c5cde32fbc935a2aa9bbc155ba369 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Thu, 16 Feb 2012 23:34:07 -0600
Subject: allow debug mode, to print out events as they come in

---
 lib/Net/Flowdock/Stream.pm | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'lib')

diff --git a/lib/Net/Flowdock/Stream.pm b/lib/Net/Flowdock/Stream.pm
index 23db07d..7b7603d 100644
--- a/lib/Net/Flowdock/Stream.pm
+++ b/lib/Net/Flowdock/Stream.pm
@@ -35,6 +35,12 @@ has socket_timeout => (
     default => 0.01,
 );
 
+has debug => (
+    is      => 'rw',
+    isa     => 'Bool',
+    default => 0,
+);
+
 has _socket => (
     is  => 'rw',
     isa => 'Net::HTTPS::NB',
@@ -135,6 +141,7 @@ sub _process_readbuf {
     if ((my $buf = $self->_readbuf) =~ s/^([^\x0d]*)\x0d//) {
         my $chunk = $1;
         $self->_readbuf($buf);
+        warn "New event:\n$chunk" if $self->debug;
         return decode_json($chunk);
     }
 
-- 
cgit v1.2.3