sub start_element {
my ($self, $data) = @_;
my $attrs = $data->{'Attributes'};
-
+
+ return if ($data->{'NamespaceURI'} eq 'http://template.sesse.net/');
for my $a (keys %$attrs) {
if ($attrs->{$a}->{'NamespaceURI'} eq 'http://template.sesse.net/') {
delete $attrs->{$a};
$self->SUPER::start_element($data);
}
+
+sub end_element {
+ my ($self, $data) = @_;
+
+ return if ($data->{'NamespaceURI'} eq 'http://template.sesse.net/');
+
+ $self->SUPER::end_element($data);
+}
1;