NAME

XML::Tiny::Tree - Convert XML::Tiny output into a Tree

Synopsis

This is scripts/synopsis.pl:

        #!/usr/bin/env perl

        use strict;
        use warnings;

        use XML::Tiny::Tree;

        # ------------------------------------------------

        my($input_file) = shift || die "Usage $0 file. Try using data/test.xml as the input. \n";
        my($tree)       = XML::Tiny::Tree -> new
                                                (
                                                        input_file        => $input_file,
                                                        no_entity_parsing => 1,
                                                ) -> convert;

        print "Input file: $input_file. \n";
        print "The whole tree: \n";
        print map("$_\n", @{$tree -> tree2string});
        print '-' x 50, "\n";
        print "Bits and pieces from the first child (tag_4) of the second child (tag_3) of the root (tag_1): \n";

        my(@children) = $tree -> children;
        @children     = $children[1] -> children;
        my($tag)      = $children[0] -> value;
        my($meta)     = $children[0] -> meta;
        my($attr)     = $$meta{attributes};

        print "tag:        $tag. \n";
        print "content:    $$meta{content}. \n";
        print 'attributes: ', join(', ', map{"$_ => $$attr{$_}"} sort keys %$attr), ". \n";

Description

XML::Tiny::Tree reads a file via XML::Tiny, and reformats the output into a tree managed by Tree.

Constructor and Initialization

Calling new()

new() is called as my($obj) = XML::Tiny::Tree -> new(k1 => v1, k2 => v2, ...).

It returns a new object of type XML::Tiny::Tree.

Key-value pairs accepted in the parameter list (see corresponding methods for details [e.g. "input_file([$string])"]):

o fatal_declarations => $Boolean

Specify whether or not to get XML::Tiny to error if such declarations are found.

Default: 0.

This key is optional.

o input_file => $string

Specify the name of the XML file to process.

Default: ''.

This key is mandatory.

o no_entity_parsing => $Boolean

Specify whether or not to get XML::Tiny to do entity parsing.

Default: 0.

This key is optional.

o strict_entity_parsing => $Boolean

If set to true, any unrecognised entities (ie, those outside the core five plus numeric entities) cause a fatal error.

Default: 0.

This key is optional.

Distributions

This module is available as a Unix-style distro (*.tgz).

See http://savage.net.au/Perl-modules/html/installing-a-module.html for help on unpacking and installing distros.

Installing the module

Install XML::Tiny::Tree as you would for any Perl module:

Run:

        cpanm XML::Tiny::Tree

or run:

        sudo cpan XML::Tiny::Tree

or unpack the distro, and then either:

        perl Build.PL
        ./Build
        ./Build test
        sudo ./Build install

or:

        perl Makefile.PL
        make (or dmake)
        make test
        make install

Methods