#!/usr/bin/perl -w
use strict;

use XML::Generator::PerlData;
use XML::Handler::YAWriter;
use IO::File;

my $handler = XML::Handler::YAWriter->new(
                     Output => new IO::File (">-"),
                     Pretty => { 
                                 PrettyWhiteIndent  => 1,
                                 PrettyWhiteNewline => 1,
                                 CompactAttrIndent  => 1 
                               });

my $pd = XML::Generator::PerlData->new(Handler => $handler);

$pd->attrmap(entry => ['attr2']);

$pd->parse_start();

$pd->start_tag('entry', attr1 => 'value1');

my $href;
$href->{path} = 'path';
$href->{attr2} = 'value2';

$pd->parse_chunk($href);

$pd->end_tag('entry');

$pd->parse_end();
_OUTPUT_
<?xml version="1.0" encoding="UTF-8"?>
<document>
  <entry {}attr1="HASH(0x1f0bb00)">
    <path>path
    </path>
  </entry>
</document>