(Perl) Auto-Trim XML Content when Loading

This example explains the "autoTrim" argument that is passed to a method such as LoadXml2.

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux

use chilkat();

$xml = chilkat::CkXml->new();

# If autoTrim is 1, then the content inside an leaf element is trimmed.
# For example:
$autoTrim = 1;
$xml->LoadXml2("<abc><xyz>  123   </xyz></abc>",$autoTrim);
print $xml->getXml() . "\r\n";

# Output is:
# (notice the SPACE chars before and after "xyz" are trimmed)

# <?xml version="1.0" encoding="utf-8" ?>
# <abc>
#     <xyz>123</xyz>
# </abc>

# If autoTrim is 0, then the content inside leaf elements are not trimmed.
$autoTrim = 0;
$xml->LoadXml2("<abc><xyz>  123   </xyz></abc>",$autoTrim);
print $xml->getXml() . "\r\n";

# Output is:

# <?xml version="1.0" encoding="utf-8" ?>
# <abc>
#     <xyz>  123   </xyz>
# </abc>

# --------------------------------------------------------------------
# The EmitCompact property controls whether XML is emitted indented (pretty-printed)
# or compact.  For example:

# Auto-trim + emit compact:
$autoTrim = 1;
$xml->LoadXml2("<abc><xyz>  123   </xyz></abc>",$autoTrim);
$xml->put_EmitCompact(1);
print $xml->getXml() . "\r\n";

# Output is:

# <?xml version="1.0" encoding="utf-8" ?>
# <abc><xyz>123</xyz></abc>

# No Auto-trim + emit compact:
$autoTrim = 0;
$xml->LoadXml2("<abc><xyz>  123   </xyz></abc>",$autoTrim);
$xml->put_EmitCompact(1);
print $xml->getXml() . "\r\n";

# Output is:

# <?xml version="1.0" encoding="utf-8" ?>
# <abc><xyz>  123   </xyz></abc>