[scpubgit/Object-Remote.git] / lib / Object / Remote / Connector / SSH.pm

package Object::Remote::Connector::SSH;

use Object::Remote::FatNode;
use Net::OpenSSH;
use Moo;

with 'Object::Remote::Role::Connector';

has ssh_masters => (is => 'ro', default => sub { {} });

sub _open2_for {
  my $self = shift;
  my @res = $self->_ssh_object_for(@_)->open2('perl','-',@_);
  print { $res[0] } $Object::Remote::FatNode::DATA, "__END__\n";
  return @res;
}

sub _ssh_object_for {
  my ($self, $on) = @_;
  $self->ssh_masters->{$on} ||= Net::OpenSSH->new($on);
}

1;
Commit	Line	Data
47c83a13	1	package Object::Remote::Connector::SSH;
	2
	3	use Object::Remote::FatNode;
	4	use Net::OpenSSH;
	5	use Moo;
	6
	7	with 'Object::Remote::Role::Connector';
	8
	9	has ssh_masters => (is => 'ro', default => sub { {} });
	10
	11	sub _open2_for {
	12	my $self = shift;
	13	my @res = $self->_ssh_object_for(@_)->open2('perl','-',@_);
	14	print { $res[0] } $Object::Remote::FatNode::DATA, "__END__\n";
	15	return @res;
	16	}
	17
	18	sub _ssh_object_for {
	19	my ($self, $on) = @_;
	20	$self->ssh_masters->{$on} \|\|= Net::OpenSSH->new($on);
	21	}
	22
	23	1;