XML::Handler::Composer
XML::Handler::ComposerUser Contributed Perl DocumentaXML::Handler::Composer(3)
NAME
XML::Handler::Composer - Another XML printer/writer/generator
SYNOPSIS
use XML::Handler::Composer;
my $composer = new XML::Handler::Composer ( [OPTIONS] );
DESCRIPTION
XML::Handler::Composer is similar to XML::Writer, XML::Handler::XML-
Writer, XML::Handler::YAWriter etc. in that it generates XML output.
This implementation may not be fast and it may not be the best solution
for your particular problem, but it has some features that may be miss-
ing in the other implementations:
o Supports every output encoding that XML::UM supports
XML::UM supports every encoding for which there is a mapping file
in the XML::Encoding distribution.
o Pretty printing
When used with XML::Filter::Reindent.
o Fine control over which kind of quotes are used
See options below.
o Supports PerlSAX interface
Constructor Options
o EndWithNewline (Default: 1)
Whether to print a newline at the end of the file (i.e. after the
root element)
o Newline (Default: undef)
If defined, which newline to use for printing. (Note that
XML::Parser etc. convert newlines into "\x0A".)
If undef, newlines will not be converted and XML::Handler::Composer
will use "\x0A" when printing.
A value of "\n" will convert the internal newlines into the plat-
form specific line separator.
See the PreserveWS option in the characters event (below) for finer
control over when newline conversion is active.
o DocTypeIndent (Default: a Newline and 2 spaces)
Newline plus indent that is used to separate lines inside the DTD.
o IndentAttList (Default: 8 spaces)
Indent used when printing an <!ATTLIST> declaration that has more
than one attribute definition, e.g.
<!ATTLIST my_elem
attr1 CDATA "foo"
attr2 CDATA "bar"
>
o Quote (Default: { XMLDecl => '"', Attr => '"', Entity => '"', System-
Literal => '"' })
Quote contains a reference to a hash that defines which quoting
characters to use when printing XML declarations (XMLDecl),
attribute values (Attr), <!ENTITY> values (Entity) and system/pub-
lic literals (SystemLiteral) as found in <!DOCTYPE>, <!ENTITY> dec-
larations etc.
o PrintDefaultAttr (Default: 0)
If 1, prints attribute values regardless of whether they are
default attribute values (as defined in <!ATTLIST> declarations.)
Normally, default attributes are not printed.
o Encoding (Default: undef)
Defines the output encoding (if specified.) Note that future calls
to the xml_decl() handler may override this setting (if they con-
tain an Encoding definition.)
o EncodeUnmapped (Default: \&XML::UM::encode_unmapped_dec)
Defines how Unicode characters not found in the mapping file (of
the specified encoding) are printed. By default, they are con-
verted to decimal entity references, like '{'
Use \&XML::UM::encode_unmapped_hex for hexadecimal constants, like
'«'
o Print (Default: sub { print @_ }, which prints to stdout)
The subroutine that is used to print the encoded XML output. The
default prints the string to stdout.
Method: get_compressed_element_suffix ($event)
Override this method to support the different styles for printing empty
elements in compressed notation, e.g. <p/>, <p></p>, <p />, <p>.
The default returns "/>", which results in <p/>. Use " />" for XHTML
style elements or ">" for certain HTML style elements.
The $event parameter is the hash reference that was received from the
start_element() handler.
Extra PerlSAX event information
XML::Handler::Composer relies on hints from previous SAX filters to
format certain parts of the XML. These SAX filters (e.g. XML::Fil-
ter::Reindent) pass extra information by adding name/value pairs to the
appropriate PerlSAX events (the events themselves are hash references.)
o entity_reference: Parameter => 1
If Parameter is 1, it means that it is a parameter entity refer-
ence. A parameter entity is referenced with %ent; instead of &ent;
and the entity declaration starts with <!ENTITY % ent ...> instead
of <!ENTITY ent ...>
NOTE: This should be added to the PerlSAX interface!
o start_element/end_element: Compress => 1
If Compress is 1 in both the start_element and end_element event,
the element will be printed in compressed form, e.g. <a/> instead
of <a></a>.
o start_element: PreserveWS => 1
If newline conversion is active (i.e. Newline was defined in the
constructor), then newlines will *NOT* be converted in text (char-
acter events) within this element.
o attlist_decl: First, MoreFollow
The First and MoreFollow options can be used to force successive
<!ATTLIST> declarations for the same element to be merged, e.g.
<!ATTLIST my_elem
attr1 CDATA "foo"
attr2 CDATA "bar"
attr3 CDATA "quux"
>
In this example, the attlist_decl event for foo should contain
(First => 1, MoreFollow => 1) and the event for bar should contain
(MoreFollow => 1). The quux event should have no extra info.
'First' indicates that the event is the first of a sequence.
'MoreFollow' indicates that more events will follow in this
sequence.
If neither option is set by the preceding PerlSAX filter, each
attribute definition will be printed as a separate <!ATTLIST> line.
CAVEATS
This code is highly experimental! It has not been tested well and the
API may change.
AUTHOR
Send bug reports, hints, tips, suggestions to Enno Derksen at
<enno@att.com>.
perl v5.8.0 2000-02-17 XML::Handler::Composer(3)
