NAME
    XML::Declare - Create XML documents with declaration style

SYNOPSIS
        my $doc = doc {
            element feed => sub {
                attr xmlns => 'http://www.w3.org/2005/Atom';
                comment "generated using XML::Declare v$XML::Declare::VERSION";
                for (1..3) {
                    element entry => sub {
                        element title     => 'Title', type => 'text';
                        element content   => sub {
                            attr type => 'text';
                            cdata 'Desc';
                        };
                        element published => '123123-1231-123-123';
                        element author => sub {
                            element name => 'Mons';
                        }
                    };
                }
            };
        } '1.0','utf-8';

        print $doc;

        doc { DEFINITIONS } < args to XML::LibXML::Document->new >

        Where DEFINITIONS are

        element name => sub { DEFINITIONS }
        or
        element
            name => 'TextContent',
            attr => value,
            attr1 => [qw(more values)];

        attr name => values;

        text $content;

        cdata $content;

        comment $content;

EXPORT
  doc BLOCK [ $version, $charset ];
=head2 element $name, SUB
=head2 element $name, ATTRS
=head2 attr $name, $value
=head2 text $content
=head2 cdata $content
=head2 comment $content
AUTHOR
    Mons Anderson, "<mons at cpan.org>"

LICENSE AND COPYRIGHT
    Copyright 2009-2010 Mons Anderson.

    This program is free software; you can redistribute it and/or modify it
    under the terms of either: the GNU General Public License as published
    by the Free Software Foundation; or the Artistic License.