#!/usr/local/bin/perl

use strict;
use warnings;
use Sleepycat::DbXml 'simple' ;

#
# Example 6
#
# Create an XML Container, rename that container, delete the
# container, and repeat.
#

eval
{
	foreach (1 .. 2)
	{
		my $container = new XmlContainer("test1.dbxml");
		$container->open(Db::DB_CREATE);
		$container->close();
		$container->rename("test2");
		$container->open(Db::DB_CREATE);
		$container->close();
		$container->remove();
	}

};

if (my $e = catch std::exception)
{
	warn $e->what() . "\n";
}
elsif ($@)
{
	warn $@;
}

