add sub call code

[scpubgit/Object-Remote.git] / lib / Object / Remote / SubCaller.pm

diff --git a/lib/Object/Remote/SubCaller.pm b/lib/Object/Remote/SubCaller.pm
new file mode 100644 (file)
index 0000000..ff5fb40
--- /dev/null
+++ b/lib/Object/Remote/SubCaller.pm
@@ -0,0 +1,18 @@
+package Object::Remote::SubCaller;
+
+use Module::Runtime qw(use_module);
+
+sub new { bless({}, ref($_[0])||$_[0]) }
+
+sub call {
+  my ($self, $name, @args) = @_;
+  my ($pkg, $sub_name) = $name =~ /^(.+)::([^:]+)$/
+    or die "Couldn't split ${name} into package and sub";
+  if (my $sub = use_module($pkg)->can($sub_name)) {
+    return $sub->(@args);
+  } else {
+    die "No subroutine ${sub_name} in package ${pkg}";
+  }
+}
+
+1;