#!/usr/bin/perl -w
use strict;
use lib './';
use Guff;
use Data::Dumper;

my $data =
{
	type=>'first',
	value=>0,
	DESKTOP=>
		{
			type=>'second',
			value=>1,
			LIBRARY=>
				{
					value=>2,
					type=>'third',
					REEL=>{ type=>undef },
				}
		},
};

my $g = Guff->new( $data );
print Dumper $g ;