parti8al conversion to future based system; start still being weird

[scpubgit/Object-Remote.git] / lib / Object / Remote / Proxy.pm

diff --git a/lib/Object/Remote/Proxy.pm b/lib/Object/Remote/Proxy.pm
index a3e2a80..af6a902 100644 (file)
--- a/lib/Object/Remote/Proxy.pm
+++ b/lib/Object/Remote/Proxy.pm
@@ -5,7 +5,10 @@ use strictures 1;
 sub AUTOLOAD {
   my $self = shift;
   (my $method) = (our $AUTOLOAD =~ /([^:]+)$/);
-  $self->{remote}->call($method => @_);
+  if ((caller(0)||'') eq 'start') {
+    $method = "start::${method}";
+  }
+  $self->{remote}->${\$self->{method}}($method => @_);
 }
 
 sub DESTROY { }