lib/Object/Remote/Role/Connector.pm

   1 package Object::Remote::Role::Connector;
   2
   3 use Module::Runtime qw(use_module);
   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(@_);
  12   return use_module('Object::Remote::Connection')->new(\%args);
  13 }
  14
  15 1;