Commit | Line | Data |
---|---|---|
9e72f0cf | 1 | package Object::Remote; |
2 | ||
3 | use Object::Remote::MiniLoop; | |
676438a1 | 4 | use Object::Remote::Handle; |
9e72f0cf | 5 | |
84b04178 | 6 | sub new::on { |
7 | my ($class, $on, @args) = @_; | |
676438a1 | 8 | Object::Remote::Handle->new( |
84b04178 | 9 | connection => $on, |
10 | class => $class, | |
11 | args => \@args | |
12 | )->proxy; | |
13 | } | |
14 | ||
676438a1 | 15 | sub new { |
16 | shift; | |
17 | Object::Remote::Handle->new(@_)->proxy; | |
9e72f0cf | 18 | } |
19 | ||
20 | sub current_loop { | |
21 | our $Current_Loop ||= Object::Remote::MiniLoop->new | |
22 | } | |
23 | ||
9e72f0cf | 24 | 1; |