git.sesse.net Git - xml-template/blob - perl-sax/XML/TemplateSAX/Deferred.pm

   1 #! /usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5 use XML::TemplateSAX;
   6 use Data::Dumper;
   7 package XML::TemplateSAX::Deferred;
   8
   9 sub new {
  10         my $class = shift;
  11         my ($filename, $obj, $clean) = @_;
  12
  13         my $self = {
  14                 filename => $filename,
  15                 obj => $obj,
  16                 clean => $clean
  17         };
  18         bless($self, $class);
  19         return $self;
  20 }
  21
  22 sub parse {
  23         my ($self, $handler) = @_;
  24
  25         my $buf = XML::TemplateSAX::process_file_to_buffer($self->{'filename'}, $self->{'obj'}, $self->{'clean'});
  26         $buf->replay($handler);
  27
  28         # XML::TemplateSAX::process_file_to_handler($self->{'filename'}, $handler, $self->{'obj'}, $self->{'clean'});
  29 }
  30
  31 1;