update Object::Remote::connect() to pass arguments to the connection

diff --git a/lib/Object/Remote.pm b/lib/Object/Remote.pm
index 55b6b59..f937fb3 100644 (file)
--- a/lib/Object/Remote.pm
+++ b/lib/Object/Remote.pm
@@ -27,8 +27,8 @@ sub new {
 }
 
 sub connect {
-  my ($class, $to) = @_;
-  use_module('Object::Remote::Connection')->maybe::start::new_from_spec($to);
+  my ($class, $to, @args) = @_;
+  use_module('Object::Remote::Connection')->maybe::start::new_from_spec($to, @args);
 }
 
 sub current_loop {

diff --git a/lib/Object/Remote/Connection.pm b/lib/Object/Remote/Connection.pm
index 5d4f4b6..e6a5a98 100644 (file)
--- a/lib/Object/Remote/Connection.pm
+++ b/lib/Object/Remote/Connection.pm
@@ -236,9 +236,9 @@ sub conn_from_spec {
 }
 
 sub new_from_spec {
-  my ($class, $spec) = @_;
+  my ($class, $spec, @args) = @_;
   return $spec if blessed $spec;
-  my $conn = $class->conn_from_spec($spec); 
+  my $conn = $class->conn_from_spec($spec, @args);
   
   die "Couldn't figure out what to do with ${spec}"
     unless defined $conn;

diff --git a/t/watchdog.t b/t/watchdog.t
index ca00170..e6f036b 100644 (file)
--- a/t/watchdog.t
+++ b/t/watchdog.t
@@ -8,7 +8,7 @@ use Object::Remote::FromData;
 
 $SIG{ALRM} = sub {  fail("Watchdog killed remote process in time"); die "test failed" };
 
-my $conn = Object::Remote::Connection->conn_from_spec("-", watchdog_timeout => 1)->connect;
+my $conn = Object::Remote->connect("-", watchdog_timeout => 1);
 
 my $remote = HangClass->new::on($conn);