File Coverage

blib/lib/Tree/Simple/SAX/Handler.pm

Criterion	Covered	Total	%
statement	37	37	100.0
branch	4	4	100.0
condition	5	11	45.4
subroutine	10	10	100.0
pod	5	5	100.0
total	61	67	91.0

package Tree::Simple::SAX::Handler;

use strict;
use warnings;

use Scalar::Util qw(blessed);

our $VERSION = '0.01';

use Tree::Simple;

use base 'XML::SAX::Base';

sub new {
    my ($_class, $root_tree) = @_;
    (blessed($root_tree) && $root_tree->isa('Tree::Simple'))
        || die "The root tree must be a Tree::Simple tree"
            if defined($root_tree);
    my $class = ref($_class) || $_class;
    my $self = $class->SUPER::new();
    $self->{_root_tree}    = $root_tree || Tree::Simple->new();
    $self->{_current_tree} = $self->{_root_tree};
    return $self;
}

sub getRootTree { (shift)->{_root_tree} }

sub start_element {
    my ($self, $el) = @_;
    my $new_tree = $self->{_root_tree}->new();
    my $node_value = { tag_type => $el->{Name} };
    my $attrs = $el->{Attributes};
    $node_value->{$attrs->{$_}->{Name}} = $attrs->{$_}->{Value} foreach keys %{$attrs};
    $new_tree->setNodeValue($node_value);
    $self->{_current_tree}->addChild($new_tree);
    $self->{_current_tree} = $new_tree;
}

sub end_element {
    my ($self) = @_;
    $self->{_current_tree} = $self->{_current_tree}->getParent();
}

sub characters {
    my ($self, $el) = @_;
    return if $el->{Data} =~ /^\s+$/;
    $self->{_current_tree}->addChild(
                $self->{_root_tree}->new({
                        tag_type => 'CDATA',
                        content  => $el->{Data}
                    })
                );
}

1;

__END__