1 package Object::Remote::Connector::Local;
6 with 'Object::Remote::Role::Connector';
9 # XXX bin/ is wrong but meh, fix later
10 my $pid = open2(my $its_stdout, my $its_stdin, 'bin/object-remote-node')
11 or die "Couldn't start local node: $!";
12 return ($its_stdin, $its_stdout, $pid);
15 push @Object::Remote::Connection::Guess, sub {
16 if (($_[0]||'') eq '-') { __PACKAGE__->new->connect }