lib/Object/Remote.pm

   1 package Object::Remote;
   2
   3 use Object::Remote::MiniLoop;
   4 use Object::Remote::Handle;
   5 use Module::Runtime qw(use_module);
   6
   7 sub new::on {
   8   my ($class, $on, @args) = @_;
   9   my $conn = __PACKAGE__->connect($on);
  10   return $conn->remote_object(class => $class, args => \@args);
  11 }
  12
  13 sub new {
  14   shift;
  15   Object::Remote::Handle->new(@_)->proxy;
  16 }
  17
  18 sub connect {
  19   my ($class, $to) = @_;
  20   use_module('Object::Remote::Connection')->new_from_spec($to);
  21 }
  22
  23 sub current_loop {
  24   our $Current_Loop ||= Object::Remote::MiniLoop->new
  25 }
  26
  27 1;