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

   1 #! /usr/bin/perl
   2
   3 package XML::TemplateSAX::Cleaner;
   4 use base qw(XML::SAX::Base);
   5
   6 sub start_element {
   7         my ($self, $data) = @_;
   8         my $attrs = $data->{'Attributes'};
   9
  10         for my $a (keys %$attrs) {
  11                 if ($attrs->{$a}->{'NamespaceURI'} eq 'http://template.sesse.net/') {
  12                         delete $attrs->{$a};
  13                 }
  14         }
  15
  16         $self->SUPER::start_element($data);
  17 }
  18
  19 1;