#!/usr/local/bin/perl

use warnings;
use strict;

use Data::Dumper;
use XML::Compile::Schema;
use XML::LibXML::Reader;

my $xsd = 'test.xsd';

my $schema = XML::Compile::Schema->new($xsd);

# This will print a very basic description of what the schema describes
$schema->printIndex();

# this will print a hash template that will show you how to construct a 
# hash that will be used to construct a valid XML file.
#
# Note: the second argument must match the root-level element of the XML 
# document.  I'm not quite sure why it's required here.
warn $schema->template('PERL', 'addresses');

##</code><code>##

# is an unnamed complex
{ # sequence of address

  # is an unnamed complex
  # occurs 1 <= # <= unbounded times
  address =>
  [ { # sequence of name, street

      # is a xs:string
      # is optional
      name => "example",

      # is a xs:string
      # is optional
      street => "example", }, ], }

##</code><code>##

my $data = {
    address => [
        {
            name => 'name 1',
            street => 'street 1',
        },
        {
            name => 'name 2',
            street => 'street 2',
        }
    ],
};

##</code><code>##

my $doc    = XML::LibXML::Document->new('1.0', 'UTF-8');
my $write  = $schema->compile(WRITER => 'addresses');
my $xml    = $write->($doc, $data);

$doc->setDocumentElement($xml);

print $doc->toString(1); # 1 indicates "pretty print"

##</code><code>##

<?xml version="1.0" encoding="UTF-8"?>
<addresses>
  <address>
    <name>name 1</name>
    <street>street 1</street>
  </address>
  <address>
    <name>name 2</name>
    <street>street 2</street>
  </address>
</addresses>