sub new::on {
my ($class, $on, @args) = @_;
my $conn = __PACKAGE__->connect($on);
- return $conn->new_remote(class => $class, args => \@args);
+ return $conn->remote_object(class => $class, args => \@args);
+}
+
+sub can::on {
+ my ($class, $on, $name) = @_;
+ my $conn = __PACKAGE__->connect($on);
+ return $conn->remote_sub(join('::', $class, $name));
}
sub new {