no warnings 'once';
+BEGIN { }
+
push @Object::Remote::Connection::Guess, sub {
- if (($_[0]||'') eq '-') { __PACKAGE__->new->connect }
+ if (($_[0]||'') eq '-') {
+ shift(@_);
+ __PACKAGE__->new(@_);
+ }
};
1;
+
+=head1 NAME
+
+Object::Remote::Connector::Local - A connector for a local Perl process
+
+=head1 DESCRIPTION
+
+Used to create a connector that talks to a Perl process started on the local
+machine. Invoked by L<Object::Remote/connect> if the connection spec is C<->.
+
+=head1 ARGUMENTS
+
+Inherits arguments from L<Object::Remote::Role::Connector::PerlInterpreter> and
+provides no own arguments.
+
+=cut