# File lib/kwartz/binding/perl.rb, line 195 def initialize(properties={}) escapefunc = properties[:escapefunc] || 'encode_entities' marks = ['', '', 'push(@_buf, ', '); ', "push(@_buf, #{escapefunc}(", ')); '] super(marks, properties) @header = 'my @_buf = (); ' unless @header == false @footer = "join('', @_buf);" + @nl unless @footer == false end