1 package Object::Remote::SubCaller;
3 use Module::Runtime qw(use_module);
5 sub new { bless({}, ref($_[0])||$_[0]) }
8 my ($self, $name, @args) = @_;
9 my ($pkg, $sub_name) = $name =~ /^(.+)::([^:]+)$/
10 or die "Couldn't split ${name} into package and sub";
11 if (my $sub = use_module($pkg)->can($sub_name)) {
14 die "No subroutine ${sub_name} in package ${pkg}";