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   my $to_fire = $self->{method};
   9   if ((caller(0)||'') eq 'start') {
  10     $to_fire = "start::${to_fire}";
  11   }
  12   $self->{remote}->$to_fire($method => @_);
  13 }
  14
  15 sub DESTROY { }
  16
  17 1;