sub _10533 { # test method my ( $class, $message ) = @_; use XML::Simple; my $ref = XMLin($message); $ref->{data}->{firstname} = 'joé'; return XMLout($ref, KeepRoot => 1 ); }