NAME¶

XML::LibXML::LazyBuilder - easy and lazy way to create XML document for XML::LibXML

SYNOPSIS¶

  use XML::LibXML::LazyBuilder;
  {
      package XML::LibXML::LazyBuilder;
      $d = DOM (E A => {at1 => "val1", at2 => "val2"},
                ((E B => {}, ((E "C"),
                              (E D => {}, "Content of D"))),
                 (E E => {}, ((E F => {}, "Content of F"),
                              (E "G")))));
  }

DESCRIPTION¶

You can describe XML documents like simple function call instead of using createElement, appendChild, etc...

FUNCTIONS¶

E

    E "tagname", \%attr, @children
    

 

Creats CODEREF that generates "XML::LibXML::Element" which tag name is given by first argument. Rest arguments are list of text content or child element created by "E" (so you can nest "E").

 

Since the output of this function is CODEREF, the creation of actual "XML::LibXML::Element" object will be delayed until "DOM" function is called.

DOM

    DOM \&docroot, $var, $enc
    

 

Generates "XML::LibXML::Document" object actually. First argument is a CODEREF created by "E" function. $var is version number of XML docuemnt, "1.0" by default. $enc is encoding, "utf-8" by default.

EXPORT¶

None by default.

:all

Exports "E" and "DOM".

EXAMPLES¶

I recommend to use "package" statement in a small scope so that you can use short function name and avoid to pollute global name space.

  my $d;
  {
      package XML::LibXML::LazyBuilder;
      $d = DOM (E A => {at1 => "val1", at2 => "val2"},
                ((E B => {}, ((E "C"),
                              (E D => {}, "Content of D"))),
                 (E E => {}, ((E F => {}, "Content of F"),
                              (E "G")))));
  }

Then, "$d->toString" will generate XML like this:

  <?xml version="1.0" encoding="utf-8"?>
  <A at1="val1" at2="val2"><B><C/><D>Content of D</D></B><E><F>Content of F</F><G/></E></A>

SEE ALSO¶

XML::LibXML

AUTHOR¶

Toru Hisai, <toru@torus.jp>

COPYRIGHT AND LICENSE¶

Copyright (C) 2008 by Toru Hisai This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.10.0 or, at your option, any later version of Perl 5 you may have available.