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   $self->{remote}->call($method => @_);
   9 }
  10
  11 sub DESTROY { }
  12
  13 1;