Help for this page

Select Code to Download

Select or download this

sub call_service {
   my $svc  = shift;
   my $cmd  = shift;
...
    
   return eval $svc . "::" . $cmd . "(" . $arg . ")";
}