#!/usr/bin/perl

use Benchmark qw(cmpthese);
use HTML::Writer qw(xhtml1-transitional.dtd);

package Writer {
    sub writer {
        use HTML::Writer;
        my $str = render {
            HTML {
                HEAD {
                    TITLE { "foo bar"};
                };
                BODY {
                    class_ "ugly";
                    onload_ "javascript: mumble()";
                    DIV {
                        class_ "foo";
                        id_    "bar";
                        t      "If in doubt, mumble.";
                        IMG { src_ "foo.jpg" };
                    };
                    TABLE {
                        my $c;
                        for ($foo, $bar, baz) {
                            TR {
                                TD { $_ }; TD { $c++};
                            }
                        }
                    };
                    DIV { class_ "bar"; t "End of that." };
                    A {
                        href_ "http://perlmonks.org";
                        t "Perl Monks Website";
                        name_ "PerlMonks";
                        title_ "PM";
                    };
                }
            };
        } 1;
    }
}
no HTML::Writer;

package Template {
    use Template::Declare::Tags;
    use base 'Template::Declare';

    template simple => sub {
        html {
            head {
                title { "foo bar"};
            };
            body {
                attr { class => "ugly" };
                attr { onload => "javascript: mumble()" };
                div {
                    attr { class => "foo"};
                    attr { id =>     "bar"};
                    "If in doubt, mumble.";
                    img { src is "foo.jpg" };
                };
                table {
                    my $c;
                    for ($foo, $bar, baz) {
                        row {
                            cell { $_ }; cell { $c++};
                        }
                    }
                };
                div { attr { class => "bar"};"End of that." };
                a {
                    href is "http://perlmonks.org";
                    "Perl Monks Website";
                    attr { name =>  "PerlMonks"};
                    attr { title => "PM"};
                };
            };
        };
    };
};

package main;
use Template::Declare;
Template::Declare->init( dispatch_to => ['Template'] );
sub template {
    my $str = '<!DOCTYPE HTML PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">' ."\n"
    . Template::Declare->show( 'simple' );
}

cmpthese(-1, {
    writer => \&Writer::writer,
    template => \&template,
});

##</code><code>##

           Rate template   writer
template 1659/s       --     -20%
writer   2073/s      25%       --