#!/usr/bin/perl
use strict; use warnings;

use Inline TT2 => 'DATA';

print hello( { name => 'Rob' } ), "\n";
# prints '<H1> Hello Rob, how are you? </H1>'

print goodbye( { name => 'Mr. Mitchell' } ), "\n";
# print '<H1> Goodbye Mr. Mitchell, have a nice day. </H1>'

# Note that in all cases, there is a lot of trimming.  This includes:
#	Removing any text left over when template directives are removed by tt2
#   Stripping all leading and trailing spaces.
# At present these are not configurable.

__DATA__
__TT2__
[% BLOCK hello %]
    <H1> Hello [% name %], how are you? </H1>
[% END %]
[% BLOCK goodbye %]
	<H1> Goodbye [% name %], have a nice day. </H1>
[% END %]