use JSON::PP qw(encode_json);
use Moo;
-our $DEBUG;
+our $DEBUG = !!$ENV{OBJECT_REMOTE_DEBUG};
has send_to_fh => (
is => 'ro', required => 1,
BEGIN {
unshift our @Guess, sub { blessed($_[0]) ? $_[0] : undef };
eval { require Object::Remote::Connector::Local };
+ eval { require Object::Remote::Connector::LocalSudo };
eval { require Object::Remote::Connector::SSH };
}
my $flat = $self->_encode($self->_deobjectify($data));
warn "$$ >>> ${flat}\n" if $DEBUG;
$flat;
- } or do {
+ } || do {
my $err = $@; # won't get here if the eval doesn't die
# don't keep refs to new things
delete @{$self->local_objects_by_id}{@New_Ids};