logger setup, wait for node start before sending requests

[scpubgit/Tak.git] / lib / Tak / JSONChannel.pm

diff --git a/lib/Tak/JSONChannel.pm b/lib/Tak/JSONChannel.pm
index 86a63e9..af1aee1 100644 (file)
--- a/lib/Tak/JSONChannel.pm
+++ b/lib/Tak/JSONChannel.pm
@@ -3,6 +3,7 @@ package Tak::JSONChannel;
 use JSON::PP qw(encode_json decode_json);
 use IO::Handle;
 use Scalar::Util qw(weaken);
+use Log::Contextual qw(:log);
 use Moo;
 
 has read_fh => (is => 'ro', required => 1);
@@ -13,6 +14,7 @@ sub BUILD { shift->write_fh->autoflush(1); }
 sub read_message {
   my ($self) = @_;
   if (defined(my $line = readline($self->read_fh))) {
+    log_trace { "Received $line" };
     if (my $unpacked = $self->_unpack_line($line)) {
       return $unpacked;
     }
@@ -50,6 +52,7 @@ sub write_message {
     );
     return;
   }
+  log_trace { "Sending: $json" };
   $self->_raw_write_message($json);
 }