Changeset 24791 for lang/perl/MENTA/trunk/lib/MENTA/Template.pm

Timestamp:

11/25/08 09:54:56 (4 years ago)

Author:

tokuhirom

Message:

merge from NanoA.see http://d.hatena.ne.jp/kazuhooku/20081121/1227267264

Files:

• lang/perl/MENTA/trunk/lib/MENTA/Template.pm (modified) (4 diffs)

lang/perl/MENTA/trunk/lib/MENTA/Template.pm

@@ +1 @@
+# a NanoA version
 # based on Mojo::Template. Copyright (C) 2010, Sebastian Riedel.
 # some modified by tokuhirom
@@ -59 +60 @@
             # Expression
             if ($type eq 'expr') {
-                $lines[-1] .= "\$_MENTA .= escape_html(scalar $value);";
+                $lines[-1] .= "\$_MENTA_T = scalar $value; \$_MENTA .= ref \$_MENTA_T eq 'MENTA::Template::RawString' ? \$\$_MENTA_T : escape_html(\$_MENTA_T);";
             }
 
             # Raw Expression
             if ($type eq 'raw_expr') {
-                $lines[-1] .= "\$_MENTA .= $value;";
+                
+                $lines[-1] .= "\$_MENTA_T = $value; \$_MENTA .= ref \$_MENTA_T eq q(MENTA::Template::RawString) ? \$\$_MENTA_T : \$_MENTA_T;";
             }
         }
@@ -71 +73 @@
     # Wrap
     $lines[0] ||= '';
-    $lines[0]   = q/sub { my $_MENTA = '';/ . $lines[0];
+    $lines[0]   = q/sub { my $_MENTA = ''; my $_MENTA_T = '';/ . $lines[0];
     $lines[-1] .= q/return $_MENTA; }/;
 
@@ -270 +272 @@
 }
 
+# create raw string (that does not need to be escaped)
+sub raw_string {
+    my $s = shift;
+    bless \$s, 'MENTA::Template::RawString';
+}
+
 1;