5 package XML::TemplateSAX::Cleaner;
6 use base qw(XML::SAX::Base);
9 my ($self, $data) = @_;
10 return if ($data->{'NamespaceURI'} eq 'http://template.sesse.net/');
12 # we need to make a copy here, or we'll confuse the upper layers.
14 my $attrs = $data->{'Attributes'} = { %{$data->{'Attributes'}} };
16 for my $a (keys %$attrs) {
17 if ($attrs->{$a}->{'NamespaceURI'} eq 'http://template.sesse.net/') {
22 $self->SUPER::start_element($data);
26 my ($self, $data) = @_;
28 return if ($data->{'NamespaceURI'} eq 'http://template.sesse.net/');
30 $self->SUPER::end_element($data);