X-Git-Url: https://git.dogcows.com/gitweb?p=chaz%2Fp5-CGI-Ex;a=blobdiff_plain;f=samples%2Fmemory_template.pl;h=070c5054ee3c01c1e8ba72e6cf8167d42cd32e7f;hp=9c055667568bd9c1dd065ad25d81dfb13ed6010e;hb=aa030874456c91d688e6c9b25e82d2bf9575ea6f;hpb=80a766126b7d0281ee013d369d9e6af45cc2cf42

diff --git a/samples/memory_template.pl b/samples/memory_template.pl
index 9c05566..070c505 100644
--- a/samples/memory_template.pl
+++ b/samples/memory_template.pl
@@ -30,6 +30,10 @@ if (! fork) {
     $module = 'HTML::Template';
 } elsif (! fork) {
     $module = 'HTML::Template::Expr';
+} elsif (! fork) {
+    $module = 'HTML::Template::Compiled';
+} elsif (! fork) {
+    $module = 'Text::Tmpl';
 } elsif (! fork) {
     $module = 'Template';
     $name   = 'Template::Parser::CET';
@@ -47,7 +51,8 @@ if ($module) {
 
     if ($module =~ /HTML::Template/) {
         my $t = eval { $module->new };
-
+    } elsif ($module eq 'Text::Tmpl') {
+        my $t = eval { $module->new->parse_string($txt) };
     } else {
 
         my $t = $module->new(ABSOLUTE => 1);