lib/Tak/ObjectProxy.pm

   1 package Tak::ObjectProxy;
   2
   3 use strictures 1;
   4
   5 sub AUTOLOAD {
   6   my $self = shift;
   7   (my $method) = (our $AUTOLOAD =~ /([^:]+)$/);
   8   $self->{client}->proxy_method_call($self, $method => @_);
   9 }
  10
  11 sub DESTROY {
  12   my $self = shift;
  13   $self->{client}->proxy_death($self);
  14 }
  15
  16 1;