projects
/
scpubgit/Object-Remote.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
add Object::Remote->connect
[scpubgit/Object-Remote.git]
/
lib
/
Object
/
Remote
/
Connection.pm
diff --git
a/lib/Object/Remote/Connection.pm
b/lib/Object/Remote/Connection.pm
index
3e35d53
..
f466452
100644
(file)
--- a/
lib/Object/Remote/Connection.pm
+++ b/
lib/Object/Remote/Connection.pm
@@
-106,6
+106,13
@@
sub new_remote {
)->proxy;
}
+sub connect {
+ my ($self, $to) = @_;
+ return await_future($self->send(
+ class_call => 'Object::Remote', 0, connect => $to
+ ));
+}
+
sub get_remote_sub {
my ($self, $sub) = @_;
my ($pkg, $name) = $sub =~ m/^(.*)::([^:]+)$/;