/ 
XML-MyXML-0.04
River stage zero No dependents
/ XML::MyXML

NAME

XML::MyXML - A simple XML module

VERSION

Version 0.03

SYNOPSIS

use XML::MyXML qw(tidy_xml xml_to_object);

my $xml = "<item><name>Table</name><price><usd>10.00</usd><eur>8.50</eur></price></item>";
print tidy_xml($xml);

my $obj = xml_to_object($xml);
print "Price in Euros = " . $obj->path('price/eur')->value;

EXPORT

tidy_xml, object_to_xml, xml_to_object, simple_to_xml

FUNCTIONS

tidy_xml($rawxml)

Returns the XML string in a tidy format (with tabs & newlines)

xml_to_object($rawxml)

Creates an 'XML::MyXML::Object' object from the raw XML provided

object_to_xml($object)

Creates an XML string from the 'XML::MyXML::Object' object provided

simple_to_xml($simple_array_ref)

Produces a raw XML string from an array reference such as this one: [ thing => [ name => 'John', location => [ city => 'New York', country => 'U.S.A.' ] ] ]

xml_to_simple($raw_xml)

Produces a very simple hash object from the raw XML string provided. An example hash object created thusly is this: { thing => { name => 'John', location => { city => 'New York', country => 'U.S.A.' } } }

Since the object created is a hashref, duplicate keys will be discarded. WARNING: This function only works on very simple XML strings, i.e. children of an element may not consist of both text and elements (child elements will be discarded in that case)

OBJECT METHODS

$obj->path("subtag1/subsubtag2/.../subsubsubtagX")

Returns the tag specified by the path as an XML::MyXML::Object object. When there are more than one tags with the specified name in the last step of the path, it will return all of them as an array.

$obj->value

When the tag represented by the $obj object has only text contents, returns those contents as a string

AUTHOR

Alexander Karelas, <karjala at karjala.org>

BUGS

Please report any bugs or feature requests to bug-xml-myxml at rt.cpan.org, or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=XML-MyXML. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.

SUPPORT

You can find documentation for this module with the perldoc command.

perldoc XML::MyXML

You can also look for information at:

ACKNOWLEDGEMENTS

COPYRIGHT & LICENSE

Copyright 2006 Alexander Karelas, all rights reserved.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.