1 package Object::Remote::Role::Connector;
3 use Object::Remote::Connection;
11 @args{qw(send_to_fh receive_from_fh child_pid)} = $self->_open2_for(@_);
12 my $line = readline($args{receive_from_fh});
13 unless ($line eq "Shere\n") {
14 die "New remote container did not send Shere - got ${line}";
16 return Object::Remote::Connection->new(\%args);