use XML::SAX::Writer;
use XML::TemplateSAX::Buffer;
use XML::TemplateSAX::Cleaner;
+use XML::TemplateSAX::Deferred;
use XML::TemplateSAX::Handler;
package XML::TemplateSAX;
$clean = 1 unless (defined($clean));
my ($cleaner, $filter, $parser);
- my $str = '';
if ($clean) {
$cleaner = XML::TemplateSAX::Cleaner->new(Handler => $handler);
# FIXME: hardcoding expat = not good?
$parser = XML::SAX::Expat->new(Handler => $filter);
$parser->parse_file($filename);
-
- return $str;
}
sub process_file {
return $buffer;
}
+sub process_file_to_placeholder {
+ my ($filename, $obj, $clean) = @_;
+
+ return XML::TemplateSAX::Deferred->new($filename, $obj, $clean);
+}
+
sub alternate {
my ($tag, $array, @elems) = @_;