From: Matt S Trout <mst@shadowcat.co.uk>
Date: Thu, 31 May 2012 19:54:28 +0000 (+0000)
Subject: debug env var
X-Git-Tag: v0.001001~44
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6db5156c142f62874d0be74b537f98e28b6708f2;p=scpubgit%2FObject-Remote.git

debug env var
---

diff --git a/lib/Object/Remote/Connection.pm b/lib/Object/Remote/Connection.pm
index 18fea05..1d21114 100644
--- a/lib/Object/Remote/Connection.pm
+++ b/lib/Object/Remote/Connection.pm
@@ -10,7 +10,7 @@ use Scalar::Util qw(weaken blessed refaddr);
 use JSON::PP qw(encode_json);
 use Moo;
 
-our $DEBUG;
+our $DEBUG = !!$ENV{OBJECT_REMOTE_DEBUG};
 
 has send_to_fh => (
   is => 'ro', required => 1,