class ActiveRecord::ConnectionAdapters::SQLite3Adapter::StatementPool

def [](key);      cache[key]; end

def []=(sql, key)
  while @max <= cache.size
    dealloc(cache.shift.last[:stmt])
  end
  cache[sql] = key
end

def cache
  @cache[$$]
end

def clear
  cache.each_value do |hash|
    dealloc hash[:stmt]
  end
  cache.clear
end

def dealloc(stmt)
  stmt.close unless stmt.closed?
end

def each(&block); cache.each(&block); end

def initialize(connection, max)
  super
  @cache = Hash.new { |h,pid| h[pid] = {} }
end

def key?(key);    cache.key?(key); end

def length;       cache.length; end