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

package Object::Remote::Role::Connector;

use Module::Runtime qw(use_module);
use Moo::Role;

requires '_open2_for';

sub connect {
  my $self = shift;
  my %args;
  @args{qw(send_to_fh receive_from_fh child_pid)} = $self->_open2_for(@_);
  return use_module('Object::Remote::Connection')->new(\%args);
}

1;
Commit	Line	Data
47c83a13	1	package Object::Remote::Role::Connector;
47c83a13	2
84b04178	3	use Module::Runtime qw(use_module);
47c83a13	4	use Moo::Role;
	5
	6	requires '_open2_for';
	7
	8	sub connect {
	9	my $self = shift;
	10	my %args;
	11	@args{qw(send_to_fh receive_from_fh child_pid)} = $self->_open2_for(@_);
84b04178	12	return use_module('Object::Remote::Connection')->new(\%args);
47c83a13	13	}
	14
	15	1;