##

  1 #!/bin/perl
  2 use strict;
  3 use warnings;
  4 use utf8;
  5 
  6 use XML::Writer;
  7 
  8 
  9 my $ns1 = "http://www.w3.org/2001/XMLSchema-instance";
 10 my $prefixMap = {$ns1 => "xsi"};
 11 
 12 my $writer = new XML::Writer(
 13     OUTPUT => 'self',
 14     DATA_INDENT => 3,
 15     DATA_MODE => 1,
 16     NAMESPACES => 1,
 17     PREFIX_MAP => $prefixMap
 18 );
 19 
 20 $writer->startTag("root");
 21 
 22             $writer->emptyTag("node1", ('nil' => "true"));
 23             $writer->emptyTag("node3", [$ns1, "nil" => "true"]);
 24 $writer->endTag("root");
 25 
 26 print $writer->to_string;

##

##