NAME
Tags::Output::LibXML - Printing 'Tags' structure by LibXML library.
SYNOPSIS
use Tags::Output::LibXML;
my $tags = Tags::Output::LibXML->new(%parameters);
$tags->put(['b', 'element']);
my @open_tags = $tags->open_tags;
$tags->finalize;
$tags->flush($reset_flag);
$tags->reset;
DESCRIPTION
This class is only for XML structures.
METHODS
"new(%parameters)"
Constructor.
* "cdata_callback"
Subroutine for output processing of cdata.
Input argument is reference to array.
Default value is undef.
Example is similar as 'data_callback'.
* "data_callback"
Subroutine for output processing of data, cdata and raw data.
Input argument is reference to array.
Default value is undef.
Example:
'data_callback' => sub {
my $data_ar = shift;
foreach my $data (@{$data_ar}) {
# Some process.
$data =~ s/^\s*//ms;
}
}
* "encoding"
Encoding for XML header.
Default is 'UTF-8'.
* "no_simple"
TODO not implemented.
Reference to array of tags, that can't by simple.
Default is [].
* "output_handler"
Handler for print output strings.
Must be a GLOB.
Default is undef.
* "preserved"
TODO not implemented.
Default value is reference to blank array.
* "set_indent"
Set indent flag.
Default is 0.
* "skip_bad_tags"
Skip bad tags.
Default value is 0.
* "xml_version"
XML version for XML header.
Default is "1.1".
"finalize()"
Finalize Tags output.
Automaticly puts end of all opened tags.
Returns undef.
"flush($reset_flag)"
Flush tags in object.
If defined 'output_handler' flush to its.
Or return code.
If enabled $reset_flag, then resets internal variables via reset method.
"open_tags()"
Return array of opened tags.
"put(@data)"
Put tags code in tags format.
Returns undef.
"reset()"
Resets internal variables.
Returns undef.
ERRORS
TODO
EXAMPLE1
# Pragmas.
use strict;
use warnings;
# Modules.
use Tags::Output::LibXML;
# Object.
my $tags = Tags::Output::LibXML->new;
# Put data.
$tags->put(
['b', 'text'],
['d', 'data'],
['e', 'text'],
);
# Print.
print $tags->flush."\n";
# Output:
#
# data
EXAMPLE2
# Pragmas.
use strict;
use warnings;
# Modules.
use Encode;
use Tags::Output::LibXML;
# Object.
my $tags = Tags::Output::LibXML->new(
'data_callback' => sub {
my $data_ar = shift;
foreach my $data (@{$data_ar}) {
$data = encode_utf8($data);
}
return;
},
);
# Data in characters.
my $data = decode_utf8('řčěšřšč');
# Put data.
$tags->put(
['b', 'text'],
['d', $data],
['e', 'text'],
);
# Print.
print $tags->flush."\n";
# Output:
#
# řčěšřšč
DEPENDENCIES
Error::Pure, Readonly, XML::LibXML.
SEE ALSO
Task::Tags
Install the Tags modules.
AUTHOR
Michal Špaček skim@cpan.org
LICENSE AND COPYRIGHT
© 2011-2015 Michal Špaček
BSD 2-Clause License
VERSION
0.01