Select Code to Download

package XML::Generator::FromDTD;
use strict;
use SGML::DTD;
...
    return $tmp; 
}
return 1;

ELEMENT cookbook (recipe+)
ELEMENT recipe (head?, (ingredientList|procedure|para)*) 
ATTLIST recipe serves CDATA #IMPLIED
...
                  exact (Y|N) "N"
ELEMENT para (#PCDATA|food)*
ELEMENT step (#PCDATA|food)*

$r=XML::Generator::FromDTD::createFromDTD ("cookbook.dtd","cookbook");
print $r->cookbook (
    $r->recipe({serves=>"one"},
...
        )
    )
)

<cookbook>
  <recipe serves="one">
...
    </ingredientlist>
  </recipe>
</cookbook>