use strict;return sub{my $this = shift;my $C = $this->{C};$this->out("<?xml version=\"1.0\" encoding=\"utf-8\"?>\n<DelavoAPIResponse>\n");if ( $C->{ErrorCode} ) {$this->out("	<errorcode>$C->{ErrorCode}</errorcode>\n	<error>$C->{ErrorMessage}</error>\n");} else {$this->out("	<result>");if ( $C->{Result} ) {$this->out("true");} else {$this->out("false");}$this->out("</result>\n");}$this->out("</DelavoAPIResponse>\n");}