Commit | Line | Data |
9e72f0cf |
1 | package Object::Remote::Proxy; |
2 | |
3 | use strictures 1; |
4 | |
5 | sub AUTOLOAD { |
6 | my $self = shift; |
7 | (my $method) = (our $AUTOLOAD =~ /([^:]+)$/); |
2065b08b |
8 | $self->{remote}->${\$self->{method}}($method => @_); |
9e72f0cf |
9 | } |
10 | |
11 | sub DESTROY { } |
12 | |
13 | 1; |