#!/usr/bin/env perl -w
use strict;
use Test::More qw( no_plan );
use Text::Template::Simple; 

ok( simple() , "Simple test 1" );
ok( simple2(), "Simple test 2" );

sub simple {
   my $template = Text::Template::Simple->new(
      header   => q~my $foo = shift; my $bar = shift;~,
      add_args => ['bar',['baz']],
      iolayer  => 'utf8',
   );
   my $result = $template->compile('t/data/test.tts', ['Burak']);
   #warn "[COMPILED] $result\n";
   return $result;
}

sub simple2 {
   my $template = Text::Template::Simple->new;
   my $result   = $template->compile(
                     'Hello <%name%>. Foo is: <%foo%> and bar is <%bar%>.',
                     [
                        name => 'Burak',
                        foo  => 'bar',
                        bar  => 'baz',
                     ],
                     {
                        map_keys => 1
                     }
                  );
   #warn "[COMPILED] $result\n";
   return $result;
}