File Coverage

blib/lib/XML/Easy/Text.pm

Criterion	Covered	Total	%
statement	250	251	99.6
branch	121	126	96.0
condition	13	27	48.1
subroutine	47	47	100.0
pod	10	10	100.0
total	441	461	95.6

=head1 NAME

XML::Easy::Text - XML parsing and serialisation

=head1 SYNOPSIS

    use XML::Easy::Text qw(
	xml10_read_content_object xml10_read_element
	xml10_read_document xml10_read_extparsedent_object);

    $content = xml10_read_content_object($text);
    $element = xml10_read_element($text);
    $element = xml10_read_document($text);
    $content = xml10_read_extparsedent_object($text);

    use XML::Easy::Text qw(
	xml10_write_content xml10_write_element
	xml10_write_document xml10_write_extparsedent);

    $text = xml10_write_content($content);
    $text = xml10_write_element($element);
    $text = xml10_write_document($element, "UTF-8");
    $text = xml10_write_extparsedent($content, "UTF-8");

=head1 DESCRIPTION

This module supplies functions that parse and serialise XML data
according to the XML 1.0 specification.

This module is oriented towards the use of XML to represent data
for interchange purposes, rather than the use of XML as markup of
principally textual data.  It does not perform any schema processing,
and does not interpret DTDs or any other kind of schema.  It adheres
strictly to the XML specification, in all its awkward details, except
for the aforementioned DTDs.

XML data in memory is represented using a tree of
L and L
objects.  Such a tree encapsulates all the structure and data content
of an XML element or document, without any irrelevant detail resulting
from the textual syntax.
These node trees are readily manipulated by the functions
in L.

The functions of this module are implemented
in C for performance, with a pure Perl backup version (which has good
performance compared to other pure Perl parsers) for systems that can't
handle XS modules.

=cut

package XML::Easy::Text;

{ use 5.008; }
use warnings;
use strict;

use XML::Easy::Content 0.007 ();
use XML::Easy::Element 0.007 ();

our $VERSION = "0.011";

use parent "Exporter";
our @EXPORT_OK = qw(
	xml10_read_content_object xml10_read_content_twine
	xml10_read_content
	xml10_read_element
	xml10_read_document
	xml10_read_extparsedent_object xml10_read_extparsedent_twine
	xml10_read_extparsedent
	xml10_write_content xml10_write_element
	xml10_write_document xml10_write_extparsedent
);

eval { local $SIG{__DIE__};
	require XSLoader;
	XSLoader::load("XML::Easy", $VERSION)
		unless defined &xml10_write_document;
};

if($@ eq "") {
	close(DATA);
} else {
	(my $filename = __FILE__) =~ tr# -~##cd;
	local $/ = undef;
	my $pp_code = "#line 98 \"$filename\"\n".;
	close(DATA);
	{
		local $SIG{__DIE__};
		eval $pp_code;
	}
	die $@ if $@ ne "";
}

*xml10_read_content = \&xml10_read_content_twine;
*xml10_read_extparsedent = \&xml10_read_extparsedent_twine;

1;

__DATA__