added server_class to the method struct, this will let us provide transparent remote...
authormiker <miker@9efc2488-bf62-4759-914b-345cdb29e865>
Mon, 14 Feb 2005 20:34:32 +0000 (20:34 +0000)
committermiker <miker@9efc2488-bf62-4759-914b-345cdb29e865>
Mon, 14 Feb 2005 20:34:32 +0000 (20:34 +0000)
git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@50 9efc2488-bf62-4759-914b-345cdb29e865

src/perlmods/OpenSRF/Application.pm

index d277d20..a2da705 100644 (file)
@@ -203,6 +203,7 @@ sub register_method {
        $args{stream} ||= 0;
         $args{package} ||= $app;                
        $args{api_name} ||= UnixServer->app() . '.' . $args{method};
+       $args{server_class} ||= UnixServer->app();
        $args{code} ||= \&{$app . '::' . $args{method}};
 
        $_METHODS[$args{api_level}]{$args{api_name}} = bless \%args => $app;