# File lib/kwartz/binding/perl.rb, line 204 def translate_string(str) return if str.nil? || str.empty? #str.gsub!(/['\\]/, '\\\\\&') #@sb << "_buf << '#{str}'; " str.gsub!(/[`\\]/, '\\\\\&') @sb << "push(@_buf, q`#{str}`); " #if str[-1] == ?\n # str.chomp! # @sb << "push(@_buf, q`#{str}`, #{@nl.inspect});" << @nl #else # @sb << "push(@_buf, q`#{str}`); " #end end