package MultiHash;

sub TIEHASH {
	my ($class) = map { ref || $_ } shift;
	my $level = shift || 0;

	return bless {
		level	=> $level,
		data	=> {},
	}, $class;
}

sub FETCH {
	my $self = shift;
	my $key = shift;

	if( exists( $self->{ data }{ $key } )) {
		return $self->{ data }{ $key };
	} else {
		my $node = {};
		tie %$node, "MultiHash";
		$self->{ data }{ $key } = $node;
		return;
	}
}

sub STORE {
	my $self = shift;
	my $key = shift;
	my $value = shift;

	RECURSE_CASE: {
		# ===== MULTIDIMENSIONAL HASH
		if( UNIVERSAL::isa( $value, 'HASH' )) {
			if( exists $self->{ data }{ $key } ) {
				$self->{ data }{ $key } = $value;
			} else {
				my $node = {};
				tie %$node, "MultiHash";
				$self->{ data }{ $key } = $node;
			}
			last RECURSE_CASE;
		}

		if( UNIVERSAL::isa( $value, 'MultiHash' )) {
			if( exists $self->{ data }{ $key } ) {
				$self->{ data }{ $key } = $value;
			} else {
				my $node = {};
				tie %$node, "MultiHash";
				$self->{ data }{ $key } = $node;
			}
			last RECURSE_CASE;
		} 

		if( UNIVERSAL::isa( $value, 'SCALAR' )) {
			$self->{ data };
			last RECURSE_CASE;
		}
	}
	
	return $value;
}

sub DELETE {
	my $self = shift;
	my $key = shift

}

sub FIRSTKEY {
	my $self = shift;
	my $temp = keys %{ $self->{ data }};
	return scalar each %{ $self->{ data }};
}

sub NEXTKEY {
	my $self = shift;
	return scalar each %{ $self->{ data }};
}

1;