X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FObject%2FRemote%2FConnection.pm;h=b7c8903c3c9f989a3b13628660f3b153324dbc6f;hb=b49a063d7885c23278585e52c3066c791f8934f2;hp=80ac4c1800772f0235d065b50f29a3d8bbe8cd5b;hpb=37efeb68748dd589455d8ae58d39e74700abdd67;p=scpubgit%2FObject-Remote.git diff --git a/lib/Object/Remote/Connection.pm b/lib/Object/Remote/Connection.pm index 80ac4c1..b7c8903 100644 --- a/lib/Object/Remote/Connection.pm +++ b/lib/Object/Remote/Connection.pm @@ -1,6 +1,6 @@ package Object::Remote::Connection; -use Object::Remote::Logging qw (:log :dlog); +use Object::Remote::Logging qw (:log :dlog get_router); use Object::Remote::Future; use Object::Remote::Null; use Object::Remote::Handle; @@ -18,6 +18,8 @@ use JSON::PP qw(encode_json); use Moo; BEGIN { + get_router()->exclude_forwarding; + #this will reap child processes as soon #as they are done executing so the process #table cleans up as fast as possible but @@ -55,8 +57,6 @@ END { kill(1, -2); } -our $DEBUG = !!$ENV{OBJECT_REMOTE_DEBUG}; - has _id => ( is => 'ro', required => 1, default => sub { our $NEXT_CONNECTION_ID++ } ); has send_to_fh => ( @@ -197,7 +197,7 @@ sub _build__json { sub _load_if_possible { my ($class) = @_; - eval "require $class"; + use_module($class); if ($@) { log_debug { "Attempt at loading '$class' failed with '$@'" }; @@ -355,7 +355,6 @@ sub _serialize { local our @New_Ids = (-1); return eval { my $flat = $self->_encode($self->_deobjectify($data)); - warn "$$ >>> ${flat}\n" if $DEBUG; $flat; } || do { my $err = $@; # won't get here if the eval doesn't die @@ -421,7 +420,6 @@ sub _deobjectify { sub _receive { my ($self, $flat) = @_; - warn "$$ <<< $flat\n" if $DEBUG; Dlog_trace { my $l = length($flat); "Starting to deserialize $l characters of data for connection $_" } $self->_id; my ($type, @rest) = eval { @{$self->_deserialize($flat)} } or do { warn "Deserialize failed for ${flat}: $@"; return };