lib/Object/Remote/Connector/Local.pm

   1 package Object::Remote::Connector::Local;
   2
   3 use Moo;
   4
   5 with 'Object::Remote::Role::Connector::PerlInterpreter';
   6
   7 no warnings 'once';
   8
   9 BEGIN {  }
  10
  11 push @Object::Remote::Connection::Guess, sub {
  12   if (($_[0]||'') eq '-') {
  13       shift(@_);
  14       __PACKAGE__->new(@_);
  15   }
  16 };
  17
  18 1;
  19
  20 =head1 NAME
  21
  22 Object::Remote::Connector::Local - A connector for a local Perl process
  23
  24 =head1 DESCRIPTION
  25
  26 Used to create a connector that talks to a Perl process started on the local
  27 machine. Invoked by L<Object::Remote/connect> if the connection spec is C<->.
  28
  29 =head1 ARGUMENTS
  30
  31 Inherits arguments from L<Object::Remote::Role::Connector::PerlInterpreter> and
  32 provides no own arguments.
  33
  34 =cut