sub AUTOLOAD {
my $self = shift;
(my $method) = (our $AUTOLOAD =~ /([^:]+)$/);
- $self->{handle}->call($method => @_);
+ if ((caller(0)||'') eq 'start') {
+ $method = "start::${method}";
+ }
+ $self->{remote}->${\$self->{method}}($method => @_);
}
sub DESTROY { }