Как мне сделать автоматический отступ для узлов XML с помощью XML :: LibXML?

Я добавляю узлы в свой XML-документ как часть внутренней обработки, но не могу получить XML :: LibXML для автоматического отступа добавленных узлов.

Я получаю следующий результат:

Вот что я сейчас получаю с $ xml-> toString (1) :

                                    
                                        
                                        A
                                        45
                                        
        
            D
            3
            3
        
    

                                    

Что бы я хотел хотелось бы иметь красиво напечатанный вывод:

                            
                                
                                    A
                                    45
                                    
                                        
                                            D
                                            3
                                            3
                                        
                                    
                                
                            

Необязательный параметр $ format для метода toString () , описанный в XML :: LibXML :: Document похоже, не помогает.