File Coverage

lib/API/Plesk/Mock.pm

Criterion	Covered	Total	%
statement	14	14	100.0
branch	4	4	100.0
condition			n/a
subroutine	6	6	100.0
pod	3	3	100.0
total	27	27	100.0

package API::Plesk::Mock;

use strict;
use warnings;

use base 'API::Plesk';

sub mock_response {
    $_[0]->{mock_response} = $_[1] if @_ > 1;
    $_[0]->{mock_response};
}

sub mock_error {
    $_[0]->{mock_error} = $_[1] if @_ > 1;
    $_[0]->{mock_error};
}

sub xml_http_req { ($_[0]->{mock_response}, $_[0]->{mock_error}) }

1;

__END__