File Coverage

blib/lib/Parallel/Workers/Backend/XMLRPC.pm

Criterion	Covered	Total	%
statement	10	12	83.3
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	14	16	87.5

package Parallel::Workers::Backend::XMLRPC;

use warnings;
use strict;
use Carp;

use RPC::XML;
use RPC::XML::Client;

use Data::Dumper;

sub new {
  my $class = shift;
  my %params=@_;
  my $self = {};
  return $self;
}

sub DESTROY {
}



sub pre {
  my ($self, $host, $cmd, @args) = @_;
  my  $cli = RPC::XML::Client->new('http://'.$host.'/RPCSERV');
  my  $resp = $cli->send_request($cmd,@args);

  if(ref $resp) {
    return join(', ', @{$resp->value})
  }else{
    return "ERROR:$resp";
  }
}

sub do {
  my ($self, $host, $cmd, @args) = @_;
  my  $cli = RPC::XML::Client->new('http://'.$host.'/RPCSERV');
  my  $resp = $cli->send_request($cmd,@args);
  if(ref $resp) {
    return join(', ', @{$resp->value})
  }else{
    return "ERROR:$resp";
  }
}

sub post {
  my ($self, $host, $cmd, @args) = @_;
  my  $cli = RPC::XML::Client->new('http://'.$host.'/RPCSERV');
  my  $resp = $cli->send_request($cmd,@args);

  print ref $resp ? join(', ', @{$resp->value}) : "Error: $resp";
  if(ref $resp) {
    return join(', ', @{$resp->value})
  }else{
    return "ERROR:$resp";
  }
}

1; # Magic true value required at end of module
__END__