[scpubgit/Object-Remote.git] / lib / Object / Remote / Proxy.pm

package Object::Remote::Proxy;

use strictures 1;

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

sub DESTROY { }

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