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 =~ /([^:]+)$/); | |
3f1f1e66 | 8 | my $to_fire = $self->{method}; |
dc28afe8 | 9 | if ((caller(0)||'') eq 'start') { |
3f1f1e66 | 10 | $to_fire = "start::${to_fire}"; |
dc28afe8 | 11 | } |
3f1f1e66 | 12 | $self->{remote}->$to_fire($method => @_); |
9e72f0cf | 13 | } |
14 | ||
15 | sub DESTROY { } | |
16 | ||
17 | 1; |