class LogAn::Cache
	READ = 1
	WRITE = 2
	attr_reader :source, :data

	def initialize source, type = nil, data = nil
		type ||= READ | WRITE
		@source, @data, self.type = source, data || {}, type
	end

	def flush!
		@data.each {|k,v| @obj[k] = v }
		@data = {}
	end

	def dget k
		@data[k] ||= @obj[k]
	end

	def oget k
		@data[k] || @obj[k]
	end

	def dset k, v
		@data[k] ||= v
	end

	def oset k, v
		@obj[k] = v
	end

	def type= type
		self.read, self.write = type & 1 > 0, type & 2 > 0
		type
	end

	def read_cache= type
		@type &= ~ (type ? 0 : 1)
		define_singleton_method :[], type ? :oget : :dget
	end

	def write_cache= type
		@type &= ~ (type ? 0 : 2)
		define_singleton_method :[], type ? :oset : :dset
	end

	#include Enumerable
	#def each &e
		#return Enumerator.new self, :each  unless e
		#flush!
		#@obj.each &e
		#self
	#end
end

class LogAn::AutoValueConvertHash
	include Enumerable

	def initialize obj, encode = nil, each = nil, &decode
		@object, @encoder = obj, decode.nil? ? encode || Marshal.method( :dump) : nil,
		@each = each || obj.method( :each)  rescue NameError
		@decode = decode || Marshal.method( :restore)
	end

	def [] k
		decode.call @object[k]
	end

	def []= k, v
		@object[k] = encode.call v
	end

	def each *paras
		@each.call *paras do |k, v|
			yield k, decode( v)
		end
	end
end