File Coverage

blib/lib/Object/Remote/Proxy.pm

Criterion	Covered	Total	%
statement	13	14	92.8
branch	3	4	75.0
condition	1	2	50.0
subroutine	3	4	75.0
pod			n/a
total	20	24	83.3

package Object::Remote::Proxy;

use strictures 1;
use Carp qw(croak);

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

  unless ($self->{remote}->is_valid) {
    croak "Attempt to use Object::Remote::Proxy backed by an invalid handle";
  }

  $self->{remote}->$to_fire($method => @_);
}

sub DESTROY { }

1;