1 package Object::Remote::Connector::Local;
6 with 'Object::Remote::Role::Connector';
10 -d 't' && -e 'bin/object-remote-node'
11 ? 'bin/object-remote-node'
12 : 'object-remote-node'
14 my $pid = open2(my $its_stdout, my $its_stdin, 'bin/object-remote-node')
15 or die "Couldn't start local node: $!";
16 return ($its_stdin, $its_stdout, $pid);
19 push @Object::Remote::Connection::Guess, sub {
20 if (($_[0]||'') eq '-') { __PACKAGE__->new->connect }