my $tag_start = shift;
my $tag_end = shift;
+ $self->{custom_tag_style} = 1;
$self->{tag_start} = $tag_start;
$self->{tag_end} = $tag_end;
$self->{tag_start_qm} = quotemeta $tag_start;
$self->{substitute_vars_re} = "$self->{tag_start_qm}(.+?)$self->{tag_end_qm}";
}
+sub set_use_template_toolkit {
+ my $self = shift;
+ my $value = shift;
+
+ $self->{use_template_toolkit} = $value;
+}
+
sub cleanup {
my ($self) = @_;
}