X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FObject%2FRemote%2FConnector%2FLocal.pm;h=f43cfe3898f07b53d4272749d00c49f1026461b8;hb=refs%2Fheads%2Farg_docs;hp=a2e52b0837be27c66ad7619a605ea770a7fe343f;hpb=9031635d18e754da303557b656c63ce8e7eb8e77;p=scpubgit%2FObject-Remote.git

diff --git a/lib/Object/Remote/Connector/Local.pm b/lib/Object/Remote/Connector/Local.pm
index a2e52b0..f43cfe3 100644
--- a/lib/Object/Remote/Connector/Local.pm
+++ b/lib/Object/Remote/Connector/Local.pm
@@ -9,7 +9,26 @@ no warnings 'once';
 BEGIN {  }
 
 push @Object::Remote::Connection::Guess, sub {
-  if (($_[0]||'') eq '-') { __PACKAGE__->new }
+  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