1 package Object::Remote::Connector::SSH;
3 use Object::Remote::FatNode;
7 with 'Object::Remote::Role::Connector';
9 has ssh_masters => (is => 'ro', default => sub { {} });
13 my @res = $self->_ssh_object_for(@_)->open2('perl','-',@_);
14 print { $res[0] } $Object::Remote::FatNode::DATA, "__END__\n";
20 $self->ssh_masters->{$on} ||= Net::OpenSSH->new($on);