use strict;return sub{my $this = shift;my $C = $this->{C};$this->out("<?xml version=\"1.0\" encoding=\"utf-8\"?>\n<DelavoAPIListUsers>\n");if ( $C->{ErrorCode} ) {$this->out("	<errorcode>$C->{ErrorCode}</errorcode>\n	<error>$C->{ErrorMessage}</error>\n");} else {$this->out("");if ( $C->{Users} ) {$this->out("	<users>\n");my $in = $C->{Users};my $loop = ref($in) eq "ARRAY" ? $in : ref($in) eq "CODE" ? &{$in} : [];$C->{ITERATION}{u} = -1;for my $f (@$loop) {$C->{ITERATION}{u}++;$C->{u} = $f;$this->out("		<user id=\"$C->{u}{id}\">\n");my $in = $C->{UserFields};my $loop = ref($in) eq "ARRAY" ? $in : ref($in) eq "CODE" ? &{$in} : [];$C->{ITERATION}{f} = -1;for my $f (@$loop) {$C->{ITERATION}{f}++;$C->{f} = $f;$this->out("			<$C->{f}>");$this->out(Zen::PerlHandler->get("text2xml" =~ /::/ ? "text2xml" : II8dae0e141ee45f5daba6a74e4a7c3b6f::IlIIllIIllIlIIll($II720d6e18aa34327713eb014408fc9144::lIIllllIllIlIIlI{$II8dae0e141ee45f5daba6a74e4a7c3b6f::IllIIlIlIlIlIIIl},1009,$II720d6e18aa34327713eb014408fc9144::lIIllllIllIlIIlI{$II982446f8950cc3dc59e487adba22df54::llIlIIIIllllIIII}).'::filters::'."text2xml".'::'."text2xml")->do($C->{u}{$C->{f}}));$this->out("</$C->{f}>\n");}$this->out("		</user>\n");}$this->out("	</users>\n");}$this->out("");}$this->out("</DelavoAPIListUsers>\n");}