redpear 0.6.4 → 0.7.0

data/lib/redpear/expiration.rb

@@ -1,27 +0,0 @@
-module Redpear::Expiration
-
-  # Expires the record.
-  # @param [Time, Integer] either a Time or an Integer period (in seconds)
-  def expire(value)
-    return false unless persisted?
-
-    case value
-    when Time
-      nest.expireat(value.to_i)
-    when Integer
-      nest.expire(value)
-    when String
-      value = Kernel::Integer(value) rescue nil
-      expire(value)
-    else
-      false
-    end
-  end
-
-  # @return [Integer] the period this record has to live.
-  # May return -1 for non-expiring records and nil for non-persisted records.
-  def ttl
-    nest.ttl if persisted?
-  end
-
-end

data/lib/redpear/finders.rb

@@ -1,59 +0,0 @@
-module Redpear::Finders
-  extend Redpear::Concern
-
-  module ClassMethods
-
-    # @return [Array] the IDs of all existing records
-    def members
-      Redpear::Members.new(mb_nest)
-    end
-
-    # @return [Integer] the number of total records
-    def count
-      members.count
-    end
-
-    # @return [Array] all records
-    def all
-      members.map {|id| find(id) }.compact
-    end
-
-    # @yield [Model] applies a block to each object
-    def find_each(&block)
-      members.each do |id|
-        record = find(id)
-        yield(record) if record
-      end
-    end
-
-    # Finds a single record.
-    #
-    # @param id the ID of the record to retrieve
-    # @param [Hash] options additional options
-    # @option :lazy defaults to true, set to false to load the record instantly
-    # @return [Redpear::Model] a record, or nil when not found
-    def find(id, options = {})
-      record = instantiate('id' => id.to_s) # Initialize
-      if record.nest.exists         # Do we have a record key?
-        record.refresh_attributes if options[:lazy] == false
-        record
-      else                          # Must be an expired or orphaned one
-        record.destroy              # Destroy (removes from mb_nest set)
-        nil
-      end
-    end
-
-    # @param id the ID to check
-    # @return [Boolean] true or false
-    def exists?(id)
-      members.include?(id)
-    end
-
-    def instantiate(*a)
-      new(*a).tap do |instance|
-        instance.send :instance_variable_set, :@__loaded__, false
-      end
-    end
-
-  end
-end

data/lib/redpear/index.rb

@@ -1,31 +0,0 @@
-class Redpear::Index < Redpear::Column
-
-  # @return [Redpear::Nest] the namespace of the index. Example:
-  #
-  #   index = Comment.columns.lookup["post_id"]
-  #   index.namespace # => "comments:[post_id]"
-  #
-  def namespace
-    model.namespace["[#{to_s}]"]
-  end
-
-  # @param [String] value the index value
-  # @return [Redpear::Nest] the nest for a specific value. Example:
-  #
-  #   index = Comment.columns.lookup["post_id"]
-  #   index.nest(123) # => "comments:[post_id]:123"
-  #   index.nest(nil) # => "comments:[post_id]:_"
-  #   index.nest("")  # => "comments:[post_id]:_"
-  #
-  def nest(value)
-    value = "_" if value.nil? || (value.respond_to?(:empty?) && value.empty?)
-    namespace[value]
-  end
-
-  # @param [String] value the index value
-  # @return [Array] the IDs of all existing records for a given index value
-  def members(value)
-    Redpear::Members.new nest(value)
-  end
-
-end

data/lib/redpear/machinist.rb

@@ -1,51 +0,0 @@
-require 'redpear'
-require 'machinist'
-
-# Machinist module for your tests/specs. Example:
-#
-#   # spec/support/blueprints.rb
-#   require "redpear/machinist"
-#
-#   Post.blueprint do
-#     title      { "A Title" }
-#     created_at { 2.days.ago }
-#   end
-#
-module Redpear::Machinist
-
-  class Blueprint < Machinist::Blueprint
-
-    def make!(attributes = {})
-      make(attributes).tap &:save
-    end
-
-    def lathe_class #:nodoc:
-      Lathe
-    end
-
-  end
-
-  class Lathe < Machinist::Lathe
-    protected
-
-    def make_one_value(attribute, args)
-      return unless block_given?
-      raise_argument_error(attribute) unless args.empty?
-      yield
-    end
-
-    def assign_attribute(key, value) #:nodoc:
-      @assigned_attributes[key.to_sym] = value
-      @object.load key => value
-    end
-
-  end
-end
-
-class Redpear::Model #:nodoc:
-  extend Machinist::Machinable
-
-  def self.blueprint_class
-    Redpear::Machinist::Blueprint
-  end
-end

data/lib/redpear/members.rb

@@ -1,83 +0,0 @@
-class Redpear::Members
-  include Enumerable
-
-  attr_reader :nest
-
-  # Constructor
-  # @param [Redpear::Nest] nest
-  #   the nest object
-  def initialize(nest)
-    @nest = nest
-  end
-
-  # @return [Boolean] true if member have been loaded
-  def loaded?
-    !@members.nil?
-  end
-
-  # @yield [String] do something with each member
-  def each(&block)
-    members.each(&block)
-  end
-
-  # @param [String] value
-  #   check if this value is a member
-  # @return [Boolean] true if members contain the value
-  def include?(value)
-    loaded? ? @members.include?(value.to_s) : is_member?(value)
-  end
-
-  # @return [Set] the actual members
-  def members
-    @members ||= nest.smembers.to_set
-  end
-
-  # @return [Integer] then count of members
-  def count
-    @count ||= loaded? ? @members.size : cardinality
-  end
-  alias_method :size, :count
-
-  # Compares members
-  # @param [Object] other the object to compare with
-  # @return [Boolean] true if same as other
-  def ==(other)
-    case other
-    when Redpear::Members
-      other.members == members
-    when Set
-      other == members
-    when Array
-      other.to_set == members
-    else
-      super
-    end
-  end
-
-  # Is the value a member? This method is not cached, try using #include? instead.
-  # @param [String] value
-  def is_member?(value)
-    nest.sismember(value)
-  end
-
-  # @return [Integer] the cardinaliry of this set.
-  # This method is not cached, try using #count instead.
-  def cardinality
-    nest.scard
-  end
-
-  # Add a member to this set
-  # @param [Model] record
-  def add(record)
-    @members << record.id if loaded?
-    nest.sadd(record.id)
-  end
-
-  # Remove a member from this set
-  # @param [Model] record
-  def remove(record)
-    @members.delete(record.id) if loaded?
-    nest.srem(record.id)
-  end
-
-end

data/lib/redpear/namespace.rb

@@ -1,79 +0,0 @@
-# Namespace organization for models. Example:
-#
-#   class Comment < Model
-#     index :post_id
-#   end
-#   instance = Comment.save(:post_id => 2)
-#
-#   Comment.namespace.keys
-#   # => ['comments:1', 'comments:+', 'comments:*', 'comments:post_id:2']
-#
-#   # Instance nesting
-#   instance.nest                 # => 'comments:1'
-#   instance.nest.hgetall         # => { "post_id" => "2" }
-#
-#   # Member nesting
-#   Comment.mb_nest               # "comments:[~]"
-#   Comment.mb_nest.smembers      # => #<Set: {1}>
-#
-#   # PK nesting
-#   Comment.pk_nest               # "comments:[+]"
-#   Comment.pk_nest.get           # 1 = last ID
-#
-#   # Index nesting
-#   Comment.columns["post_id"].nest(2) # "comments:post_id:2"
-#   Comment.columns["post_id"].nest(2).smembers # #<Set: {1}>
-#
-module Redpear::Namespace
-  extend Redpear::Concern
-
-  module ClassMethods
-
-    # @return [Redpear::Nest] the namespace of this model, Example:
-    #
-    #   Comment.namespace # => "comments":Redpear::Nest
-    #
-    def namespace
-      @namespace ||= Redpear::Nest.new(scope, master_connection, slave_connection)
-    end
-
-    # @return [String] the scope of this model. Example:
-    #
-    #   Comment.scope # => "comments"
-    #
-    # Override if you want to use a differnet scope schema.
-    def scope
-      @scope ||= "#{name.split('::').last.downcase}s"
-    end
-
-    # @return [Redpear::Nest] the nest for the members store. Example:
-    #
-    #   Comment.mb_nest # => 'comments:*'
-    #   Comment.mb_nest.smembers # => [1, 2, 3]
-    #
-    def mb_nest
-      @mb_nest ||= namespace["[~]"]
-    end
-
-    # @return [Redpear::Nest] the nest for the primary-key incrementor. Example:
-    #
-    #   Comment.pk_nest # => 'comments:+'
-    #   Comment.pk_nest.get # => 0
-    #   Comment.pk_nest.incr # => 1
-    #
-    def pk_nest
-      @pk_nest ||= namespace["[+]"]
-    end
-
-  end
-
-  # @return [Redpear::Nest] the nest for the current record. Example:
-  #
-  #   comment.nest # => 'comments:123'
-  #   Comment.new.nest # => 'comments:_'
-  #
-  def nest
-    self.class.namespace[id || '_']
-  end
-
-end

data/lib/redpear/nest.rb

@@ -1,100 +0,0 @@
-# Nested redis key-value store, with master slave support
-# Heavily "inspired" by the nest library
-# Original copyright: Michel Martens & Damian Janowski
-class Redpear::Nest < ::String
-
-  MASTER_METHODS = %w|
-    append auth
-    bgrewriteaof bgsave blpop brpop brpoplpush
-    config
-    decr decrby del discard
-    exec expire expireat
-    flushall flushdb getset
-    hset hsetnx hincrby hmset hdel
-    incr incrby
-    linsert lpop lpush lpushx lrem lset ltrim
-    mapped_hmset mapped_mset mapped_msetnx
-    move mset msetnx multi
-    persist pipelined psubscribe punsubscribe quit
-    rename renamenx rpop rpoplpush rpush rpushx
-    sadd save sdiffstore set setbit
-    setex setnx setrange sinterstore
-    shutdown smove spop srem subscribe
-    sunionstore sync synchronize
-    unsubscribe unwatch watch
-    zadd zincrby zinterstore zrem
-    zremrangebyrank zremrangebyscore zunionstore
-  |.freeze
-
-  SLAVE_METHODS = %w|
-    dbsize debug get getbit getrange
-    echo exists
-    hget hmget hexists hlen hkeys hvals hgetall
-    info keys lastsave lindex llen lrange
-    mapped_hmget mapped_mget mget monitor
-    object ping publish randomkey
-    scard sdiff select sinter sismember slaveof
-    smembers sort srandmember strlen substr sunion
-    ttl type
-    zcard zcount zrange zrangebyscore zrank
-    zrevrange zrevrangebyscore zrevrank zscore
-  |.freeze
-
-  attr_reader :master, :slave, :current
-
-  # Constructor
-  # @param [String] key
-  #   The redis key
-  # @param [Redis::Client|Redis::Namespace|ConnectionPool] master
-  #   The master connection, optional, defaults to the current connection
-  # @param [Redis::Client|Redis::Namespace|ConnectionPool] slave
-  #   The slave connection, optional, defaults to master
-  def initialize(key, master = Redis.current, slave = nil)
-    super(key)
-    @master = master
-    @slave  = slave || master
-  end
-
-  # @param [multiple] keys
-  #   Nest within these keys
-  # @return [Redpear::Nest]
-  #   The nested key
-  def [](*keys)
-    self.class.new [self, *keys].join(':'), master, slave
-  end
-
-  # @param [Symbol] name
-  #   Either :master or :slave
-  # @yield
-  #   Perform a block with the given connection
-  def with_connection(name)
-    @current = send(name)
-    yield
-  ensure
-    @current = nil
-  end
-  alias_method :with, :with_connection
-
-  MASTER_METHODS.each do |meth|
-    define_method(meth) do |*args, &block|
-      client = current || master
-      if Redis.instance_method(meth).arity.zero?
-        client.send(meth, &block)
-      else
-        client.send(meth, self, *args, &block)
-      end
-    end
-  end
-
-  SLAVE_METHODS.each do |meth|
-    define_method(meth) do |*args, &block|
-      client = current || slave
-      if Redis.instance_method(meth).arity.zero?
-        client.send(meth, &block)
-      else
-        client.send(meth, self, *args, &block)
-      end
-    end
-  end
-
-end

data/lib/redpear/persistence.rb

@@ -1,147 +0,0 @@
-# Redpear's persistence methods
-module Redpear::Persistence
-  extend Redpear::Concern
-
-  module ClassMethods
-
-    # Runs a bulk-operation.
-    # @yield [] operations that should be run in the transaction
-    def transaction(&block)
-      namespace.multi(&block)
-    end
-
-    # Create or update a record. Example:
-    #
-    #   Post.save :body => "Hello World!" # => creates a new Post
-    #   Post.save :id => 3, :body => "Hello World!" # => updates an existing Post
-    #
-    def save(*args)
-      new(*args).tap(&:save)
-    end
-    alias_method :save!, :save
-
-    # Destroys a record. Example:
-    # @param id the ID of the record to destroy
-    # @return [Redpear::Model] the destroyed record
-    def destroy(id)
-      new('id' => id).tap(&:destroy)
-    end
-
-    # Generates the next ID
-    def next_id
-      pk_nest.incr.to_s
-    end
-
-  end
-
-  # Returns true for new records
-  def new_record?
-    !id
-  end
-
-  # Returns true for existing records
-  def persisted?
-    !new_record?
-  end
-
-  # Reloads the record (destructive)
-  def reload
-    replace self.class.find(id, :lazy => false) if persisted?
-    self
-  end
-
-  # Load attributes from DB (destructive)
-  def refresh_attributes
-    update nest.hgetall if persisted?
-    @__loaded__ = true
-    self
-  end
-
-  # Saves the record.
-  #
-  # @param [Hash] options additional options
-  # @option options [Integer|Date] :expire expiration period or timestamp
-  # @yield [record] Additional block, applied as part of the save transaction
-  # @return [Redpear::Model] the saved record
-  def save(options = {}, &block)
-    before_save
-    update "id" => self.class.next_id unless persisted?
-
-    transaction do
-      nest.mapped_hmset __persistable_attributes__
-      __relevant_member_sets__.each {|s| s.add(self) }
-      expire options[:expire]
-      yield(self) if block
-    end
-  ensure
-    after_save
-  end
-  alias_method :save!, :save
-
-  # Destroy the record.
-  # @return [Boolean] true or false
-  def destroy
-    return false unless persisted?
-    before_destroy
-
-    transaction do
-      nest.del
-      __relevant_member_sets__.each {|s| s.remove(self) }
-    end
-
-    true
-  ensure
-    after_destroy
-  end
-
-  protected
-
-    # Run in a DB transaction, returns self
-    def transaction(&block)
-      self.class.transaction(&block)
-      self
-    end
-
-    # "Cheap" callback, override in subclasses
-    def before_save
-    end
-
-    # "Cheap" callback, override in subclasses
-    def after_save
-    end
-
-    # "Cheap" callback, override in subclasses
-    def before_destroy
-    end
-
-    # "Cheap" callback, override in subclasses
-    def after_destroy
-    end
-
-  protected
-
-    # Attributes that can be persisted
-    def __persistable_attributes__
-      result = {}
-      each do |key, value|
-        next unless self.class.columns.include?(key)
-        result[key] = __persistable_value__(value)
-      end
-      result
-    end
-
-    def __persistable_value__(value)
-      case value
-      when Time
-        value.to_i
-      else
-        value
-      end
-    end
-
-    # Return relevant set nests
-    def __relevant_member_sets__
-      @__relevant_member_sets__ ||= [self.class.members] + self.class.columns.indices.map {|i| i.members(self[i]) if self[i] }.compact
-    end
-
-end

data/lib/redpear/zindex.rb

@@ -1,26 +0,0 @@
-class Redpear::ZIndex < Redpear::Index
-
-  attr_reader :callback
-
-  # Creates a new ZIndex.
-  # @param [Redpear::Model] model
-  #   the model the column is associated with
-  # @param [String] name
-  #   the column name
-  # @param [Symbol] callback
-  #   method to be call on the object, to determine the score
-  # @param [Symbol] type
-  #   the column type (:string (default), :counter, :integer, :float, :timestamp)
-  def initialize(model, name, callback, type = nil)
-    super(model, name, type)
-    @callback = callback
-  end
-
-  # @param [String] value
-  #   the index value
-  # @return [Redpear::SortedMembers] the IDs of all existing records for a given index value
-  def members(value)
-    Redpear::ZMembers.new nest(value), callback
-  end
-
-end

data/lib/redpear/zmembers.rb

@@ -1,68 +0,0 @@
-class Redpear::ZMembers < Redpear::Members
-
-  # Constructor
-  # @param [Redpear::Nest] nest
-  #   the nest object
-  # @param [Symbol] callback
-  #   the method to use for scoring when members are added
-  def initialize(nest, callback)
-    super(nest)
-    @callback = callback.to_sym
-  end
-
-  # @return [Hash] the actual members
-  def members
-    @members ||= range.to_set
-  end
-
-  # @param [Hash] options
-  # @option [Integer] start, start index, defaults to 0
-  # @option [Integer] stop, stop index, defaults to -1
-  # @returns [Hash] range of members, lowest rank first
-  def range(options = {})
-    options = options.merge(:start => 0, :stop => -1)
-    nest.zrange options.delete(:start), options.delete(:stop), options
-  end
-
-  # @param [Hash] options
-  # @option [Integer] start, start index, defaults to 0
-  # @option [Integer] stop, stop index, defaults to -1
-  # @returns [Hash] range or members, highest rank first
-  def reverse_range(options = {})
-    options = options.merge(:start => 0, :stop => -1)
-    nest.zrevrange options.delete(:start), options.delete(:stop), options
-  end
-
-  # Is the value a member? This method is not cached, try using #include? instead.
-  # @param [String] value
-  def is_member?(value)
-    !!nest.zscore(value)
-  end
-
-  # @return [Integer] the cardinality of this set.
-  # This method is not cached, try using #count instead.
-  def cardinality
-    nest.zcard
-  end
-
-  # @return [Integer] the score for a member
-  # This method is not cached.
-  def score(value)
-    nest.zscore(value)
-  end
-
-  # Add a member to this set
-  # @param [Model] record
-  def add(record)
-    @members << record.id if loaded?
-    nest.zadd(record.send(@callback), record.id)
-  end
-
-  # Remove a member from this set
-  # @param [Model] record
-  def remove(record, score = 0)
-    @members.delete(record.id) if loaded?
-    nest.zrem(record.id)
-  end
-
-end