RPC::Simple::CallHandler - Perl class to handle RPC calls with call-back

RPC-Simple documentation Contained in the RPC-Simple distribution.

Index

Code Index:

NAME

Top

RPC::Simple::CallHandler - Perl class to handle RPC calls with call-back

SYNOPSIS

Top

  use RPC::Simple::CallHandler;

DESCRIPTION

Top

This class is intanciated on the remote side each time a function is called with a call-back ref. This class will hold the relevant information so that the call-back will be passed to the local object which issued the call.

Used only for asynchronous functions calls. I.e the called function cannot pass a result immediately, it will have to call-back this handler.

new (handler_ref, remote_object, request_id, method, argument_ref)

Top

Call the remote_object methods with a call-back parameter and the passed arguments, store the handler ref.

Note that the called method must be able to handle a sub ref parameter. This sub must be called when the function is over.

Usually the call-back function will be a closure.

methods

Top

done ($result, ...)

call-back method.

AUTHORS

Top

    Current Maintainer
    Clint Edwards <cedwards@mcclatchyinteractive.com>

    Original
    Dominique Dumont, <Dominique_Dumont@grenoble.hp.com>

SEE ALSO

Top

perl(1).

RPC-Simple documentation Contained in the RPC-Simple distribution. 
package RPC::Simple::CallHandler;

use strict;
use vars qw($VERSION);

( $VERSION ) = '$Revision: 1.6 $ ' =~ /\$Revision:\s+([^\s]+)/;

# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.

# Preloaded methods go here.

# Autoload methods go after =cut, and are processed by the autosplit program.
sub new
  {
    my $type = shift ;
    my $self = {} ;
    
    $self->{controlRef} = shift ;
    $self->{objRef} = shift ;
    $self->{reqId} = shift ;
    my $method = shift ;
    my $args = shift ;
    
    print "Creating call handler\n" if $main::verbose ;
    bless $self,$type ;
    
    $self->{objRef} -> $method (sub {$self->done(@_);} , @$args) ;
    return $self ;
  }

sub done 
  {
    my $self = shift ;
    
    print "done called\n" if $main::verbose ;
    $self->{controlRef} -> callbackDone ($self->{reqId}, @_ ) ;
    $self->destroy ;
  }

sub destroy
  {
    my $self = shift ;
    print "CallHandler destroyed\n" if $main::verbose ;
    delete $self->{controlRef} ;
    delete $self->{objRef} ;
    delete $self->{reqId} ;
  }

1;
__END__
# Below is the stub of documentation for your module. You better edit it!