3 package XML::TemplateSAX::Cleaner;
4 use base qw(XML::SAX::Base);
7 my ($self, $data) = @_;
8 my $attrs = $data->{'Attributes'};
10 for my $a (keys %$attrs) {
11 if ($attrs->{$a}->{'NamespaceURI'} eq 'http://template.sesse.net/') {
16 $self->SUPER::start_element($data);