#! /usr/bin/perl

use 5;
use warnings;
use strict;

use Data::Dumper;

use FindBin;
use lib "$FindBin::Bin/lib";

use Config::Nested;

my $c = new Config::Nested(
	section => [qw( location animal)],
	boolean => [qw( happy hungry alive)],
	variable => [qw( sex name colour owner) ],
	array => 'breed exercise',
);

# Slurp configuration data
$/=undef;
my $conf = <DATA>;

# Parse defaults.
$c->parse("alive !hungry") || die "Parsing defaults failed\n";
$c->parse("owner 'Peter the Great' happy") || die "Parsing defaults failed\n";
$c->parse("sex = male") || die "Parsing defaults failed\n";
$c->parse("animal Fred") || die "Parsing defaults failed\n";


# Parse configuration
$c->parse($conf) || die "Parsing failed\n";

for my $s ($c->sections())
{
	print "================= $s ====================\n";
	my @obj	= $c->section($s);
	print Dumper(\@obj);
}

exit;

__DATA__
owner George

location home {
	animal fish 
	{
		name Fred
		sex male
		colour yellow
		happy
		alive
	}

	{
		owner  Gladys

		animal rat
		{
			name Bob
			!alive
		}
		animal bird
		{
			name Clyde
			sex female
			colour yellow
			alive
		}
	}
}

location work
{
	animal horse
	{
		name "A Horse"
		sex male
	}
}

animal dog
{
	name Rover

	animal flea
	{
	}
}