File Coverage

blib/lib/XML/LibXML/SAX/ChunkParser.pm

Criterion	Covered	Total	%
statement	7	9	77.7
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	10	12	83.3

package XML::LibXML::SAX::ChunkParser;
use strict;
use base qw(XML::SAX::Base);
use XML::LibXML;
use Carp qw(croak);

our $VERSION = '0.00008';

sub DESTROY {
    my $self = shift;
    $self->clean_parser;
}

sub clean_parser {
    my $self = shift;

    my $option = delete $self->{ParserOptions};
    if (! $option) {
        return;
    }
    my $parser = delete $option->{LibParser};
    if (! $parser) {
        return;
    }
    # break a possible circular reference
    $parser->set_handler( undef );
}

sub get_parser {
    my $self = shift;
    my $options = $self->{ParserOptions};
    if (! $options) {
        $options = {};
        $self->{ParserOptions} = $options;
    }

    my $parser = $options->{LibParser};
    if (! $parser) {
        $parser = $options->{LibParser} = XML::LibXML->new;
        $parser->set_handler($self);
    }
    return $parser;
}

sub parse_chunk {
    my ($self, $chunk) = @_;

    my $parser = $self->get_parser();
    eval {
        $parser->parse_chunk( $chunk );
    };

    if ( $parser->{SAX}->{State} == 1 ) {
        croak( "SAX Exception not implemented, yet; Data ended before document ended\n" );
    }

    if ( $@ ) {
        croak $@;
    }
}

sub finish {
    my $self = shift;

    my $parser = $self->get_parser();
    if ($parser) {
        $parser->parse_chunk("", 1);
    }

    $self->clean_parser();
}

1;

__END__