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; |