File Coverage

blib/lib/RPC/Simple/CallHandler.pm

Criterion	Covered	Total	%
statement	6	27	22.2
branch	0	6	0.0
condition			n/a
subroutine	2	6	33.3
pod	1	3	33.3
total	9	42	21.4

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__