lib/Object/Remote/Proxy.pm

   1 package Object::Remote::Proxy;
   2
   3 use strictures 1;
   4
   5 sub AUTOLOAD {
   6   my $self = shift;
   7   (my $method) = (our $AUTOLOAD =~ /([^:]+)$/);
   8   if ((caller(0)||'') eq 'start') {
   9     $method = "start::${method}";
  10   }
  11   $self->{remote}->${\$self->{method}}($method => @_);
  12 }
  13
  14 sub DESTROY { }
  15
  16 1;