diff options
Diffstat (limited to 'lib/Net/Flowdock/Stream.pm')
-rw-r--r-- | lib/Net/Flowdock/Stream.pm | 7 |
1 files changed, 7 insertions, 0 deletions
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); } |