#!/usr/local/bin/perl -w
#Script
use strict;
use OOXML;
my $xmldoc = new OOXML("house");
my $groundfloor = $xmldoc->node("groundfloor");
my $kitchen = $groundfloor->node("room", name=>"kitchen");
my $lounge = $groundfloor->node("room", name=>"lounge");
$kitchen->tag("item",name=>"cooker", colour=>"white");
$lounge->tag("item",name=>"sofa",colour=>"turgid brown");
$kitchen->tag("item",name=>"sink",colour=>"silver");
$lounge->tag("item",name=>"chair",colour=>"lime green");
print "First example... Matches yours\n";
$xmldoc->write();
my $secfloor = $xmldoc->node("2ndfloor", level => 2);
my $bedroom = $secfloor->node("room", name=>"Bedroom 1", size=>"400 sq ft");
my $bathroom = $secfloor->node("room", name=>"Bathroom", size=>"1/2");
$bedroom->tag("furniture",name=>"bed",colour=>"mahogony");
$bedroom->tag("furniture",name=>"dresser", colour=>"black");
$bedroom->tag("fixture", name=>"ceiling fan", colour=>"gold", action=>"rotation");
$bathroom->tag("item", name=>"washcloth",colour=>"blue");
$bathroom->tag("furniture",name=>"sink", colour=>"white");
$bathroom->tag("furniture",name=>"toilet", colour=>"white");
my $saying = $bathroom->text(nodename=>"walldecor", name=>"saying");
$saying->text(text =>"If at first you don't fricasee; fry, fry a hen.");
$saying->text(nodename=>"strong",text=>"!!!!");
$saying->text(text =>"After the strong tag");
print "\n\n\nSecond example... more functionality\n";
$xmldoc->write();
print "\n\n\nThird example... set the increase(10) and starting(5) indent levels\n";
$xmldoc->write(10,5);
print "\n\n\nFourth example... Going to a file \"out.xml\"\n";
$xmldoc->write('','',"out.xml");