start and await_all working

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

diff --git a/lib/Object/Remote.pm b/lib/Object/Remote.pm
index 25f0349..680197e 100644 (file)
--- a/lib/Object/Remote.pm
+++ b/lib/Object/Remote.pm
@@ -59,6 +59,7 @@ sub current_loop {
 sub call {
   my ($self, $method, @args) = @_;
   my $w = wantarray;
+  $method = "start::${method}" if (caller(0)||'') eq 'start';
   future {
     $self->connection->send(call => $self->id, $w, $method, @args)
   };