HTML Generation Code (cont.)

• desc => sub { $_->set_tag_class( 'p'); $_->insert_new_elt( before => h2 => "Description"); $_->subs_text( qr/($RE{URI}{HTTP})/, '&elt( a =>{ href => $1 }, $1)' ); }, plant => sub { $_->set_tag( 'body'); }, }, pretty_print => 'indented', );

• $twig->parsefile( $PLANT_FILE);

• # add the html "wrapping" my $html= $twig->root->wrap_in( 'html'); my $head= $html->insert_new_elt( first_child => 'head');

• my $name= $twig->first_elt( 'h1')->text; $head->insert_new_elt( first_child => 'title', $name);

• $twig->print;