[urisagit/Template-Simple.git] / extras / bench_new.pl


use warnings ;
use strict ;

use Getopt::Long ;
use Data::Dumper ;

use File::Slurp ;

use Benchmark qw(:hireswallclock cmpthese);

my $opts = parse_options() ;

my $template_info = [
	{
		name	=> 'basic',
		data	=> {
			name	=> 'bob',
		},
		expected => 'hehe bob',
		simple	=> 'hehe [% name %]',
		toolkit	=> 'hehe [% name %]',
		teeny	=> 'hehe [% name %]',
	},
	{
		name	=> 'nested',
		data	=> {
			title	=> 'Bobs Blog',
			posts	=> [
				{
					title	=> 'hehe',
					date	=> 'Today'
				},
				{
					title	=> 'Something new',
					date	=> '3 Days ago',
				},
			],
		},
		expected => <<EXPECTED,
<html>
  <head><title>Bobs Blog</title></head>
  <body>
    <ul>
        <li>
            <h3>hehe</h3>
            <span>Today</span>
        </li>
        <li>
            <h3>Something new</h3>
            <span>3 Days ago</span>
        </li>
    </ul>
  </body>
</html>
EXPECTED

		simple	=> <<SIMPLE,
<html>
  <head><title>[% title %]</title></head>
  <body>
    <ul>[% START posts %]
        <li>
            <h3>[% title %]</h3>
            <span>[% date %]</span>
        </li>[% END posts %]
    </ul>
  </body>
</html>
SIMPLE

		toolkit	=> <<TOOLKIT,
<html>
  <head><title>[% title %]</title></head>
  <body>
    <ul>
      [% FOREACH post = posts %]
        <li>
            <h3>[% post.title %]</h3>
            <span>[% post.date %]</span>
        </li>
      [% END %]
    </ul>
  </body>
</html>
TOOLKIT

		teeny	=> <<TEENY,
<html>
  <head><title>[% title %]</title></head>
  <body>
    <ul>
      [% SECTION post %]
        <li>
            <h3>[% title %]</h3>
            <span>[% date %]</span>
        </li>
      [% END %]
    </ul>
  </body>
</html>
TEENY
	},
] ;

my $benches = [
	{
		name	=> 'T::S',
		template_key => 'simple',
		load	=> sub {
			return eval { require Template::Simple } ;
		},
		setup	=> sub {
			my( $bench, $info ) = @_ ;

			my $template = $info->{$bench->{template_key}} ;
			my $data = $info->{data} ;
			my $name = $info->{name} ;

			my $obj = Template::Simple->new(
				templates => { $name => $template }
			) ;

			$bench->{render} =
				sub { $obj->render( $name, $data ) } ;
		},
		verify	=> sub {
			my( $bench, $info ) = @_ ;
			my $result = $bench->{render}->() ;
			$bench->{result} = ${$result} ;
		},
	},
	{
		name	=> 'T::S compiled',
		template_key => 'simple',
		load	=> sub {
			return eval { require Template::Simple } ;
		},
		setup	=> sub {
			my( $bench, $info ) = @_ ;

			my $template = $info->{$bench->{template_key}} ;
			my $data = $info->{data} ;
			my $name = $info->{name} ;

			my $obj = Template::Simple->new(
				templates => { $name => $template }
			) ;
			$obj->compile( $name ) ;

			$bench->{render} =
				sub { $obj->render( $name, $data ) } ;
		},
		verify	=> sub {
			my( $bench, $info ) = @_ ;
			my $result = $bench->{render}->() ;
			$bench->{result} = ${$result} ;
		},
	},
] ;

run_benchmarks() ;

sub run_benchmarks {

	foreach my $info ( @{$template_info} ) {

		my %compares ;

		foreach my $bench ( @{$benches} ) {

			my $loaded = $bench->{load}->() ;
			unless( $loaded ) {
				print
				"skipping $bench->{name} as it didn't load\n" ;
				next ;
			}

			$bench->{setup}->( $bench, $info ) ;
			$bench->{verify}->( $bench, $info ) ;

			if ( $bench->{result} ne $info->{expected} ) {

				print
		"RESULT [$bench->{result}]\nEXPECTED [$info->{expected}]\n" ;
			}
			else {
	print "'$bench->{name}' rendering of '$info->{name}' is verified\n" ;
			}

			$compares{ $bench->{name} } = $bench->{render} ;
		}

		cmpthese( $opts->{iterations}, \%compares ) ;
	}
}


sub parse_options {

	GetOptions( \my %opts,
		'verify|v',
		'iterations|i',
		'templaters|t',
		'help|?',
	) ;

	usage( '' ) if $opts{ 'help' } ;

	$opts{iterations} ||= -2 ;

	$opts{templaters} = [split /,/, $opts{templaters}]
		if $opts{templaters} ;

	return \%opts ;
}

sub usage {

	my $err_msg = shift || '' ;

	my $usage = <<'=cut' ;

bench_templates.pl - Benchmark Multiple Templaters

=head1 SYNOPSIS

load_menus.pl [--verify | -v] [--iterations | -i <iter>]
	[--templaters| -t <templaters>] [--help]

=head1 DESCRIPTION

	--rid | -r <rids>		Select the restaurant ID to be fetched.
					Can be a comma separated list of rids. 
					'ALL' will select all the valid
					ID's from a source. This is
					required (unless <source> is set
					to 'ALL'.

	[--file | -f]			Load the XML from files. The file is

	[--help | ?]			Print this help text

=cut

	$usage =~ s/^=\w+.*$//mg ;

	$usage =~ s/\n{2,}/\n\n/g ;
	$usage =~ s/\A\n+// ;

	die "$err_msg\n$usage" ;
}
Commit	Line	Data
b8f7f9ec	1
	2	use warnings ;
	3	use strict ;
	4
	5	use Getopt::Long ;
	6	use Data::Dumper ;
	7
	8	use File::Slurp ;
	9
	10	use Benchmark qw(:hireswallclock cmpthese);
	11
	12	my $opts = parse_options() ;
	13
	14	my $template_info = [
	15	{
	16	name => 'basic',
	17	data => {
	18	name => 'bob',
	19	},
	20	expected => 'hehe bob',
	21	simple => 'hehe [% name %]',
	22	toolkit => 'hehe [% name %]',
	23	teeny => 'hehe [% name %]',
	24	},
	25	{
	26	name => 'nested',
	27	data => {
	28	title => 'Bobs Blog',
	29	posts => [
	30	{
	31	title => 'hehe',
	32	date => 'Today'
	33	},
	34	{
	35	title => 'Something new',
	36	date => '3 Days ago',
	37	},
	38	],
	39	},
	40	expected => <<EXPECTED,
	41	<html>
	42	<head><title>Bobs Blog</title></head>
	43	<body>
	44	<ul>
	45	<li>
	46	<h3>hehe</h3>
	47	<span>Today</span>
	48	</li>
	49	<li>
	50	<h3>Something new</h3>
	51	<span>3 Days ago</span>
	52	</li>
	53	</ul>
	54	</body>
	55	</html>
	56	EXPECTED
	57
	58	simple => <<SIMPLE,
	59	<html>
	60	<head><title>[% title %]</title></head>
	61	<body>
	62	<ul>[% START posts %]
	63	<li>
	64	<h3>[% title %]</h3>
65	<span>[% date %]</span>
66	</li>[% END posts %]
67	</ul>
68	</body>
69	</html>
70	SIMPLE
71
72	toolkit => <<TOOLKIT,
73	<html>
74	<head><title>[% title %]</title></head>
75	<body>
76	<ul>
77	[% FOREACH post = posts %]
78	<li>
79	<h3>[% post.title %]</h3>
80	<span>[% post.date %]</span>
81	</li>
82	[% END %]
83	</ul>
84	</body>
85	</html>
86	TOOLKIT
87
88	teeny => <<TEENY,
89	<html>
90	<head><title>[% title %]</title></head>
91	<body>
92	<ul>
93	[% SECTION post %]
94	<li>
95	<h3>[% title %]</h3>
96	<span>[% date %]</span>
97	</li>
98	[% END %]
99	</ul>
100	</body>
101	</html>
102	TEENY
103	},
104	] ;
105
106	my $benches = [
107	{
108	name => 'T::S',
109	template_key => 'simple',
110	load => sub {
111	return eval { require Template::Simple } ;
112	},
113	setup => sub {
114	my( $bench, $info ) = @_ ;
115
116	my $template = $info->{$bench->{template_key}} ;
117	my $data = $info->{data} ;
118	my $name = $info->{name} ;
119
120	my $obj = Template::Simple->new(
121	templates => { $name => $template }
122	) ;
123
124	$bench->{render} =
125	sub { $obj->render( $name, $data ) } ;
126	},
127	verify => sub {
128	my( $bench, $info ) = @_ ;
129	my $result = $bench->{render}->() ;
130	$bench->{result} = ${$result} ;
131	},
132	},
133	{
134	name => 'T::S compiled',
135	template_key => 'simple',
136	load => sub {
137	return eval { require Template::Simple } ;
138	},
139	setup => sub {
140	my( $bench, $info ) = @_ ;
141
142	my $template = $info->{$bench->{template_key}} ;
143	my $data = $info->{data} ;
144	my $name = $info->{name} ;
145
146	my $obj = Template::Simple->new(
147	templates => { $name => $template }
148	) ;
149	$obj->compile( $name ) ;
150
151	$bench->{render} =
152	sub { $obj->render( $name, $data ) } ;
153	},
154	verify => sub {
155	my( $bench, $info ) = @_ ;
156	my $result = $bench->{render}->() ;
157	$bench->{result} = ${$result} ;
158	},
159	},
160	] ;
161
162	run_benchmarks() ;
163
164	sub run_benchmarks {
165
166	foreach my $info ( @{$template_info} ) {
167
168	my %compares ;
169
170	foreach my $bench ( @{$benches} ) {
171
172	my $loaded = $bench->{load}->() ;
173	unless( $loaded ) {
174	print
175	"skipping $bench->{name} as it didn't load\n" ;
176	next ;
177	}
178
179	$bench->{setup}->( $bench, $info ) ;
180	$bench->{verify}->( $bench, $info ) ;
181
182	if ( $bench->{result} ne $info->{expected} ) {
183
184	print
185	"RESULT [$bench->{result}]\nEXPECTED [$info->{expected}]\n" ;
186	}
187	else {
188	print "'$bench->{name}' rendering of '$info->{name}' is verified\n" ;
189	}
190
191	$compares{ $bench->{name} } = $bench->{render} ;
192	}
193
194	cmpthese( $opts->{iterations}, \%compares ) ;
195	}
196	}
197
198
199
200
201	sub parse_options {
202
203	GetOptions( \my %opts,
204	'verify\|v',
205	'iterations\|i',
206	'templaters\|t',
207	'help\|?',
208	) ;
209
210	usage( '' ) if $opts{ 'help' } ;
211
212	$opts{iterations} \|\|= -2 ;
213
214	$opts{templaters} = [split /,/, $opts{templaters}]
215	if $opts{templaters} ;
216
217	return \%opts ;
218	}
219
220	sub usage {
221
222	my $err_msg = shift \|\| '' ;
223
224	my $usage = <<'=cut' ;
225
226	bench_templates.pl - Benchmark Multiple Templaters
227
228	=head1 SYNOPSIS
229
230	load_menus.pl [--verify \| -v] [--iterations \| -i <iter>]
231	[--templaters\| -t <templaters>] [--help]
232
233	=head1 DESCRIPTION
234
235	--rid \| -r <rids> Select the restaurant ID to be fetched.
236	Can be a comma separated list of rids.
237	'ALL' will select all the valid
238	ID's from a source. This is
239	required (unless <source> is set
240	to 'ALL'.
241
242	[--file \| -f] Load the XML from files. The file is
243
244	[--help \| ?] Print this help text
245
246	=cut
247
248	$usage =~ s/^=\w+.*$//mg ;
249
250	$usage =~ s/\n{2,}/\n\n/g ;
251	$usage =~ s/\A\n+// ;
252
253	die "$err_msg\n$usage" ;
254	}