CGI::Ex 2.14

[chaz/p5-CGI-Ex] / samples / memory_template.pl

diff --git a/samples/memory_template.pl b/samples/memory_template.pl
index 9c055667568bd9c1dd065ad25d81dfb13ed6010e..070c5054ee3c01c1e8ba72e6cf8167d42cd32e7f 100644 (file)
--- 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);