Select Code to Download

Select or download this

# html {
#     head { title { text "Title" } };
...
#         p { class_ "warning"; text "paragraph" }
#     };
# }

Select or download this

# doc {
#     my_elem {
#         # children go here
#     };
# };

Select or download this

# my_elem {
#     text "some text";
#     my_attr_ "value";
# };

Select or download this

our $__frag;  # points to fragment under active construction

...
sub text($) {
    push @{$__frag->[2]}, @_;
}

Select or download this

sub define_vocabulary {
    my ($elems, $attrs) = @_;
    eval "sub $_(&) { _elem('$_',\@_) }"     for @$elems;
    eval "sub ${_}_(\$) { _attr('$_',\@_) }" for @$attrs;
}

Select or download this

BEGIN {
    define_vocabulary(
...
        [qw( src href class style )]
    );
}

Select or download this

my $my_doc = doc {
    html {
...
#     ]
#   ]
# ]

Select or download this

use XML::Writer;

...
    $render_fn->($doc);
    $writer->end();
}

Select or download this

render_via_xml_writer( $my_doc, DATA_MODE => 1, UNSAFE => 1 );
# <html>
...
# <p class="warning">paragraph</p>
# </body>
# </html>

Select or download this

sub render_doc(&) {
    my $docfn = shift;
...
        UNSAFE => 1
    );
}

Select or download this

render_doc {
    html {
...
# <p>Plus paragraph number 5.</p>
# </body>
# </html>