new Client/Router/Service arch

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

diff --git a/lib/Tak/JSONChannel.pm b/lib/Tak/JSONChannel.pm
index fd3e7b5..6bfb16a 100644 (file)
--- a/lib/Tak/JSONChannel.pm
+++ b/lib/Tak/JSONChannel.pm
@@ -53,6 +53,7 @@ sub send {
 
 sub _raw_send {
   my ($self, $raw) = @_;
+#warn "Sending: ${raw}\n";
   print { $self->write_fh } $raw."\n";
 }