How can I auto-indent XML nodes with XML::LibXML?

Question

I\'m adding nodes to my XML document as part some in-house processing, but cannot get XML::LibXML to auto-indent the added nodes.

I get output like the following:

Answer 1

I played a bit with settings and this seems to work:

use XML::LibXML;

my $doc = XML::LibXML->load_xml(string => < 1 });
                                    
                                        
                                        A
                                        45
                                        
        
            D
            3
            3
        
    

                                    
END_XML

print $doc->toString(1);

Result is this:

  
    A
    45
    
      
        D
        3
        3