[scpubgit/Tak.git] / lib / Tak / ObjectProxy.pm

package Tak::ObjectProxy;

use strictures 1;

sub AUTOLOAD {
  my $self = shift;
  (my $method) = (our $AUTOLOAD =~ /([^:]+)$/);
  $self->{client}->proxy_method_call($self, $method => @_);
}

sub DESTROY {
  my $self = shift;
  $self->{client}->proxy_death($self);
}

1;
Commit	Line	Data
e49c818e	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;