Erubis::PerlGenerator

    # File lib/erubis/engine/eperl.rb, line 49
49:     def add_expr_debug(src, code)
50:       code.strip!
51:       s = code.gsub(/\'/, "\\'")
52:       src << @func << "('*** debug: #{code}=', #{code}, \"\\n\");"
53:     end

    # File lib/erubis/engine/eperl.rb, line 45
45:     def add_expr_escaped(src, code)
46:       add_expr_literal(src, escaped_expr(code))
47:     end

    # File lib/erubis/engine/eperl.rb, line 40
40:     def add_expr_literal(src, code)
41:       code.strip!
42:       src << @func << "(" << code << "); "
43:     end

    # File lib/erubis/engine/eperl.rb, line 59
59:     def add_postamble(src)
60:       src << "\n" unless src[1] == \n\
61:     end

    # File lib/erubis/engine/eperl.rb, line 28
28:     def add_preamble(src)
29:       src << "use HTML::Entities; ";
30:     end

    # File lib/erubis/engine/eperl.rb, line 55
55:     def add_stmt(src, code)
56:       src << code
57:     end

    # File lib/erubis/engine/eperl.rb, line 36
36:     def add_text(src, text)
37:       src << @func << "('" << escape_text(text) << "'); " unless text.empty?
38:     end

    # File lib/erubis/engine/eperl.rb, line 32
32:     def escape_text(text)
33:       return text.gsub!(/['\\]/, '\\\&') || text
34:     end

    # File lib/erubis/engine/eperl.rb, line 22
22:     def init_generator(properties={})
23:       super
24:       @escapefunc ||= 'encode_entities'
25:       @func = properties[:func] || 'print'
26:     end