File Coverage

blib/lib/XML/SAX/Simple.pm

Criterion	Covered	Total	%
statement	45	48	93.7
branch	9	10	90.0
condition	9	12	75.0
subroutine	11	11	100.0
pod	2	3	66.6
total	76	84	90.4

package XML::SAX::Simple;

=head1 NAME

XML::SAX::Simple - SAX version of XML::Simple.

=head1 VERSION

Version 0.08

=cut

$VERSION = '0.08';

use 5.006;
use strict;
use warnings;
use Data::Dumper;

use vars qw(@EXPORT);
use XML::SAX;
use XML::Handler::Trees;
use base 'XML::Simple';
@EXPORT = qw(XMLin XMLout);

=head1 DESCRIPTION

C is a very simple version of L but for SAX.It can
be used as a complete drop-in replacement for L.

See the documentation for L for details.

=head1 SYNOPSIS

    use XML::SAX::Simple qw(XMLin XMLout);
    my $hash = XMLin("foo.xml");

=cut

sub XMLin {
    my $self;

    if ($_[0] and UNIVERSAL::isa($_[0], 'XML::Simple')) {
        $self = shift;
    }
    else {
        $self = XML::SAX::Simple->new();
    }

    $self->SUPER::XMLin(@_);
}

sub XMLout {
    my $self;

    if ($_[0] and UNIVERSAL::isa($_[0], 'XML::Simple')) {
        $self = shift;
    }
    else {
        $self = XML::SAX::Simple->new();
    }

    $self->SUPER::XMLout(@_);
}

sub build_tree {
    my ($self, $filename, $string) = @_;

    $self->{nocollapse} = 1;

    if ($filename and $filename eq '-') {
        local($/);
        $string = ;
        $filename = undef;
    }

    my $handler = XML::Handler::Tree->new();
    my $parser  = XML::SAX::ParserFactory->parser(Handler => $handler);

    my $tree;

    if ($filename) {
        $tree = $parser->parse_uri($filename);
    }
    else {
        if (ref($string) && ref($string) ne 'SCALAR') {
            $tree = $parser->parse_file($string);
        }
        else {
            $tree = $parser->parse_string($$string);
        }
    }

    return $tree;
}

=head1 AUTHOR

Matt Sergeant, [e-mail]

Currently maintained by Mohammad S Anwar (MANWAR), C<<  >>

=head1 REPOSITORY

L

=head1 SEE ALSO

L, L.

=head1 COPYRIGHT AND LICENCE

This is free  software. You  may use it and distribute it under the same terms as
Perl itself.

Copyright (C) 2001 Matt Sergeant, [e-mail]

=cut

1; # end of XML::SAX::Simple