package Test::XMLRPC::Lite;

use strict;
use warnings;

use parent 'XMLRPC::Lite';

our $CallTest;
our $ResponseXML;

sub call {
    shift;
    $CallTest->(@_) if $CallTest;

    die 'No response XML defined' unless $ResponseXML;
    return XMLRPC::Deserializer->deserialize($ResponseXML);
}

1;