DTD to module/data structure?

[Michael Stillwell]

"Relaxer [http://www.relaxer.org/] creates a set of Java classes that 
form an object hierarchy that is logically equivalent to a DOM tree, 
but is easier to use programmatically."

Is there any equivalent for Perl?  Something that can go from, say,

   <!DOCTYPE person [
     <!ELEMENT first_name (#PCDATA)>
     <!ELEMENT last_name (#PCDATA)>
     <!ELEMENT phone (#PCDATA)>
     <!ELEMENT person (first_name, last_name, phone*)>
   ]>

to something like

   my $p = Person->new("record.xml");

   $p->first_name("Bob");
   $p->last_name("Funk");
   $p->profession_push("123");
   $p->profession_push("456");




--M.

* * *
http://beebo.org






* * *
http://beebo.org