File: Proxy.pm

package info (click to toggle)
libobject-remote-perl 0.003004-1
  • links: PTS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 408 kB
  • ctags: 221
  • sloc: perl: 2,365; makefile: 2
file content (23 lines) | stat: -rw-r--r-- 453 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
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;