class EM::Mongo::Collection

def afirst(selector={}, opts={}, &blk)
  opts[:limit] = 1
  afind(selector, opts) do |res|
    yield res.first
  end
end