File Coverage

blib/lib/XML/Filter/SAX2toSAX1.pm

Criterion	Covered	Total	%
statement	9	31	29.0
branch	0	4	0.0
condition			n/a
subroutine	3	6	50.0
pod	2	3	66.6
total	14	44	31.8

# $Id: SAX2toSAX1.pm,v 1.3 2002/07/08 11:56:04 matt Exp $

package XML::Filter::SAX2toSAX1;

use strict;
use vars qw($VERSION @ISA);

use XML::SAX::Base;

@ISA = qw(XML::SAX::Base);

$VERSION = '0.03';

sub start_element {
    my ($self, $element) = @_;

    # warn("start_element: $self->{Handler}\n");
    $self->make_sax1_attribs($element);

    my $name = delete($element->{LocalName});
    my $prefix = delete($element->{Prefix});
    delete($element->{NamespaceURI});

    $name = "$prefix:$name" if length($prefix);

    $element->{Name} = $name;

    $self->SUPER::start_element($element);
}

sub end_element {
    my ($self, $element) = @_;

    # warn("end_element\n");
    delete($element->{Attributes});
    delete($element->{LocalName});
    delete($element->{Prefix});
    delete($element->{NamespaceURI});

    $self->SUPER::end_element($element);
}

sub make_sax1_attribs {
    my ($self, $element) = @_;

    my %attribs;

    foreach my $attrib (values %{$element->{Attributes}}) {
        if (length($attrib->{Prefix})) {
            $attribs{"$attrib->{Prefix}:$attrib->{LocalName}"} =
              $attrib->{Value};
        }
        else {
            $attribs{$attrib->{LocalName}} = $attrib->{Value};
        }
    }

    $element->{Attributes} = \%attribs;
}

1;
__END__