root/docs/cho45/20080515-yapc.asia-2008-tokyo/bench.pl

#!/usr/bin/perl

use strict;
use warnings;

use Benchmark qw/:all/;
use Text::MicroMason;
use Template;

sub unindent ($) {
        my ($str) = @_;
        my ($ws)  = $str =~ /^(\s+)/;
        $ws  =~ s/\n//g;
        $str =~ s/^$ws//gm;
        $str;
}

my $tt  = Template->new();
my $tm  = Text::MicroMason->new(qw/-AllowGlobals/);
my $tms = Text::MicroMason->new(qw/-AllowGlobals -SafeServerPages/);

cmpthese timethese(1000, {
        "TT" => sub {
                my $output;
                $tt->process(\"[% foo %]", {
                        foo => "hogehoge"
                }, \$output);
        },

        "Text::MicroMason" => sub {
                $tm->set_globals( '$foo' => 'hogehoge' );
                $tm->execute(text => '<% $foo %>');
        },

        "Text::MicroMason::SafeServerPages" => sub {
                $tms->set_globals( '$foo' => 'hogehoge' );
                $tms->execute(text => '<%= $foo %>');
        }
});

print "\n\n";

cmpthese timethese(1000, {
        "TT" => sub {
                my $output;
                $tt->process(\unindent q{
                        <ul>
                        [% FOREACH i = items %]
                                <li>[% i %]</li>
                        [% END %]
                        </ul>

                        [% foo %]
                }, {
                        items => [qw/1 2 3 4 5 6 7 8 9 0/],
                        foo => "foo",
                }, \$output);
        },

        "Text::MicroMason" => sub {
                $tm->set_globals(
                        '$items' => [qw/1 2 3 4 5 6 7 8 9 0/],
                        '$foo' => "foo",
                );
                $tm->execute(text => unindent q{
                        <ul>
                        % for my $i ($items) {
                                <li><% $i %></li>
                        % }
                        </ul>

                        <% $foo %>
                });
        },

        "Text::MicroMason::SafeServerPages" => sub {
                $tms->set_globals(
                        '$items' => [qw/1 2 3 4 5 6 7 8 9 0/],
                        '$foo' => "foo",
                );
                $tms->execute(text => unindent q{
                        <ul>
                        <% for my $i ($items) { %>
                                <li><%= $i %></li>
                        <% } %>
                        </ul>

                        <%= $foo %>
                });
        },
});