I am reading data from a database and attempting to create XML using XML::Smart. I'm having some problems creating elements that have attributes and textual content.

I would like to create things along the lines of:

<phone type="home">555-1234</phone>
[download]

But I can't quite get it to work. I either lose the attribute altogether or it gets inserted as a tag inside the phone element's contents. It might have been confusing it a little that the 'phone' element was defined with a 'type' attribute and I also had a 'type' element but that had nothing to do with 'phone' element. I tried changing the attribute to 'xxx' but then it never showed up in the output.

As far as I can tell, it's valid XML. Is it possible to create this using XML::Smart with a DTD?

From the DTD:

<!ELEMENT customer (phone+)>
<!ELEMENT phone (#PCDATA)>
<!ATTLIST phone type PCDATA #REQUIRED>
[download]