Commit | Line | Data |
---|---|---|
9e72f0cf | 1 | package Object::Remote::Connector::Local; |
2 | ||
9e72f0cf | 3 | use Moo; |
4 | ||
a9fdb55e | 5 | with 'Object::Remote::Role::Connector::PerlInterpreter'; |
9e72f0cf | 6 | |
7efea51f | 7 | no warnings 'once'; |
8 | ||
9031635d | 9 | BEGIN { } |
10 | ||
84b04178 | 11 | push @Object::Remote::Connection::Guess, sub { |
c824fdf3 | 12 | if (($_[0]||'') eq '-') { |
55c0d020 | 13 | shift(@_); |
14 | __PACKAGE__->new(@_); | |
c824fdf3 | 15 | } |
84b04178 | 16 | }; |
17 | ||
9e72f0cf | 18 | 1; |
4e25b1fd | 19 | |
20 | =head1 NAME | |
21 | ||
22 | Object::Remote::Connector::Local - A connector for a local Perl process | |
23 | ||
8dbf62a5 | 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 | ||
4e25b1fd | 29 | =head1 ARGUMENTS |
30 | ||
31 | Inherits arguments from L<Object::Remote::Role::Connector::PerlInterpreter> and | |
32 | provides no own arguments. | |
33 | ||
34 | =cut |