cvs commit: p5ee/App-Context/lib/App CallDispatcher.pm

cvsuser     04/02/27 06:12:22

  Modified:    App-Context/lib/App CallDispatcher.pm
  Log:
  default call dispatcher is now a real local dispatcher, calling $context->call() on the local context
  
  Revision  Changes    Path
  1.4       +17 -12    p5ee/App-Context/lib/App/CallDispatcher.pm
  
  Index: CallDispatcher.pm
  ===================================================================
  RCS file: /cvs/public/p5ee/App-Context/lib/App/CallDispatcher.pm,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -w -r1.3 -r1.4
  --- CallDispatcher.pm	22 Mar 2003 04:04:34 -0000	1.3
  +++ CallDispatcher.pm	27 Feb 2004 14:12:22 -0000	1.4
  @@ -1,6 +1,6 @@
   
   #############################################################################
  -## $Id: CallDispatcher.pm,v 1.3 2003/03/22 04:04:34 spadkins Exp $
  +## $Id: CallDispatcher.pm,v 1.4 2004/02/27 14:12:22 spadkins Exp $
   #############################################################################
   
   package App::CallDispatcher;
  @@ -46,7 +46,7 @@
   
   =item * Class: App::CallDispatcher
   
  -=item * Class: App::CallDispatcher::Local
  +=item * Class: App::CallDispatcher::HTTPSimple
   
   =item * Class: App::CallDispatcher::SOAP
   
  @@ -111,25 +111,30 @@
   
   =head2 call()
   
  -    * Signature: $call_dispatcher->call($request, $response);
  -    * Signature: $response = $call_dispatcher->call($request);
  -    * Signature: $response = $call_dispatcher->call(%named);
  -    * Param:     $request           ref   [in]
  -    * Param:     $response          ref   [out]
  -    * Return:    $response          ref
  +    * Signature: @returnvals = $call_dispatcher->call($service, $name, $method, $args);
  +    * Param:     $service           string  [in]
  +    * Param:     $name              string  [in]
  +    * Param:     $method            string  [in]
  +    * Param:     $args              ARRAY   [in]
  +    * Return:    @returnvals        any
       * Throws:    App::Exception::CallDispatcher
       * Since:     0.01
   
       Sample Usage: 
   
  -    $call_dispatcher->call($request, $response);
  -    $response = $call_dispatcher->call($request);
  -    $response = $call_dispatcher->call(%named);
  +    @returnvals = $call_dispatcher->call("Repository","db",
  +        "get_rows",["city",{city_cd=>"LAX"},["city_cd","state","country"]]);
  +
  +The default call dispatcher is a local call dispatcher.
  +It simply passes the call() on to the local context for execution.
  +It results in an in-process method call rather than a remote method call.
   
   =cut
   
   sub call {
  -    my $self = shift;
  +    my ($self, $service, $name, $method, $args) = @_;
  +    my $context = $self->{context};
  +    my @returnvals = $context->call($service, $name, $method, $args);
   }
   
   #############################################################################