Show
Ignore:
Timestamp:
11/13/08 11:53:38 (6 years ago)
Author:
mattn
Message:

%s/MOJO/MENTA/g

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • lang/perl/MENTA/trunk/lib/MENTA/Template.pm

    r23528 r23529  
    55use strict; 
    66use warnings; 
    7 use constant DEBUG => $ENV{MOJO_TEMPLATE_DEBUG} || 0; 
     7use constant DEBUG => $ENV{MENTA_TEMPLATE_DEBUG} || 0; 
    88 
    99use Carp 'croak'; 
     
    4848                $value .= '\n' if $newline; 
    4949 
    50                 $lines[-1] .= "\$_MOJO .= \"" . $value . "\";"; 
     50                $lines[-1] .= "\$_MENTA .= \"" . $value . "\";"; 
    5151            } 
    5252 
     
    5858            # Expression 
    5959            if ($type eq 'expr') { 
    60                 $lines[-1] .= "\$_MOJO .= $value;"; 
     60                $lines[-1] .= "\$_MENTA .= $value;"; 
    6161            } 
    6262        } 
     
    6565    # Wrap 
    6666    $lines[0] ||= ''; 
    67     $lines[0]   = q/sub { my $_MOJO = '';/ . $lines[0]; 
    68     $lines[-1] .= q/return $_MOJO; }/; 
     67    $lines[0]   = q/sub { my $_MENTA = '';/ . $lines[0]; 
     68    $lines[-1] .= q/return $_MENTA; }/; 
    6969 
    7070    $self->{code} = join "\n", @lines;