12 unless(exists($self->{'XMLURL'}) and defined($self->{'XMLURL'})) {
16 $self->{'__RPCClient'} = RPC::XML::Client->new($self->{'XMLURL'});
17 if ((exists($self->{'USERNAME'}) and exists($self->{'PASSWORD'})) and
18 ($self->{'USERNAME'} ne '')) {
19 $self->{'__RPCClient'}->credentials('', $self->{'USERNAME'}, $self->{'PASSWORD'});
22 return bless($self, $class);
30 $res = $self->{'__RPCClient'}->send_request('load_start', $URL);
32 $self->{'__ERROR'} = $res;
36 if ($res->is_fault()) {
37 $self->{'__ERROR'} = $res->value()->{'faultString'};
48 $res = $self->{'__RPCClient'}->send_request('d.multicall', '',
56 $self->{'__ERROR'} = $res;
60 if ($res->is_fault()) {
61 $self->{'__ERROR'} = $res->value()->{'faultString'};
71 return $self->{'__ERROR'};