Changeset 23529 for lang/perl/MENTA/trunk

Timestamp:

11/13/08 11:53:38 (5 years ago)

Author:

mattn

Message:

%s/MOJO/MENTA/g

Files:

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

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

@@ -5 +5 @@
 use strict;
 use warnings;
-use constant DEBUG => $ENV{MOJO_TEMPLATE_DEBUG} || 0;
+use constant DEBUG => $ENV{MENTA_TEMPLATE_DEBUG} || 0;
 
 use Carp 'croak';
@@ -48 +48 @@
                 $value .= '\n' if $newline;
 
-                $lines[-1] .= "\$_MOJO .= \"" . $value . "\";";
+                $lines[-1] .= "\$_MENTA .= \"" . $value . "\";";
             }
 
@@ -58 +58 @@
             # Expression
             if ($type eq 'expr') {
-                $lines[-1] .= "\$_MOJO .= $value;";
+                $lines[-1] .= "\$_MENTA .= $value;";
             }
         }
@@ -65 +65 @@
     # Wrap
     $lines[0] ||= '';
-    $lines[0]   = q/sub { my $_MOJO = '';/ . $lines[0];
-    $lines[-1] .= q/return $_MOJO; }/;
+    $lines[0]   = q/sub { my $_MENTA = '';/ . $lines[0];
+    $lines[-1] .= q/return $_MENTA; }/;
 
     $self->{code} = join "\n", @lines;