Add Phalcon\Cache\Backend\Redis

.travis.yml

@@ -9,6 +9,7 @@ php:
 services:
   - mongodb
   - memcached
+  - redis-server
 
 before_install:
  - ./unit-tests/ci/install_prereqs.sh

phalcon/cache/backend/libmemcached.zep

@@ -379,11 +379,13 @@ class Libmemcached extends \Phalcon\Cache\Backend implements \Phalcon\Cache\Back
 		let keys = memcache->get(specialKey);
 		if typeof keys == "array" {
 			for key in keys {
-				if !prefix || starts_with(key, prefix) {
-					return key;
+				if prefix && !starts_with(key, prefix) {
+					unset(keys[key]);
 				}
 			}
 		}
+
+		return keys;
 	}
 
 	/**
@@ -419,6 +421,72 @@ class Libmemcached extends \Phalcon\Cache\Backend implements \Phalcon\Cache\Back
 		return false;
 	}
 
+	/**
+	 * Increment of given $keyName by $value
+	 *
+	 * @param  string keyName
+	 * @param  long lifetime
+	 * @return long
+	 */
+	public function increment(keyName=null, value=null)
+	{
+		var memcache, prefix, lastKey;
+
+		let memcache = this->_memcache;
+
+		if typeof memcache != "object" {
+			this->_connect();
+			let memcache = this->_memcache;
+		}
+
+		if !keyName {
+			let lastKey = this->_lastKey;
+		} else {
+			let prefix = this->_prefix;
+			let lastKey = prefix . keyName;
+			let this->_lastKey = lastKey;
+		}
+
+		if !value {
+			let value = 1;
+		}
+
+		return memcache->increment(lastKey, value);
+	}
+
+	/**
+	 * Decrement of $keyName by given $value
+	 *
+	 * @param  string keyName
+	 * @param  long value
+	 * @return long
+	 */
+	public function decrement(keyName=null, value=null)
+	{
+		var memcache, prefix, lastKey;
+
+		let memcache = this->_memcache;
+
+		if typeof memcache != "object" {
+			this->_connect();
+			let memcache = this->_memcache;
+		}
+
+		if !keyName {
+			let lastKey = this->_lastKey;
+		} else {
+			let prefix = this->_prefix;
+			let lastKey = prefix . keyName;
+			let this->_lastKey = lastKey;
+		}
+
+		if !value {
+			let value = 1;
+		}
+
+		return memcache->decrement(lastKey, value);
+	}
+
 	/**
 	 * Immediately invalidates all existing items.
 	 *

phalcon/cache/backend/memcache.zep

@@ -319,11 +319,13 @@ class Memcache extends \Phalcon\Cache\Backend implements \Phalcon\Cache\BackendI
 		let keys = memcache->get(specialKey);
 		if typeof keys == "array" {
 			for key in keys {
-				if !prefix || starts_with(key, prefix) {
-					return key;
+				if prefix && !starts_with(key, prefix) {
+					unset(keys[key]);
 				}
 			}
 		}
+
+		return keys;
 	}
 
 	/**
@@ -361,4 +363,105 @@ class Memcache extends \Phalcon\Cache\Backend implements \Phalcon\Cache\BackendI
 		return false;
 	}
 
+	/**
+	 * Increment of given $keyName by $value
+	 *
+	 * @param  string keyName
+	 * @param  long lifetime
+	 * @return long
+	 */
+	public function increment(keyName=null, value=null)
+	{
+		var memcache, prefix, lastKey;
+
+		let memcache = this->_memcache;
+
+		if typeof memcache != "object" {
+			this->_connect();
+			let memcache = this->_memcache;
+		}
+
+		if !keyName {
+			let lastKey = this->_lastKey;
+		} else {
+			let prefix = this->_prefix;
+			let lastKey = prefix . keyName;
+			let this->_lastKey = lastKey;
+		}
+
+		if !value {
+			let value = 1;
+		}
+
+		return memcache->increment(lastKey, value);
+	}
+
+	/**
+	 * Decrement of $keyName by given $value
+	 *
+	 * @param  string keyName
+	 * @param  long value
+	 * @return long
+	 */
+	public function decrement(keyName=null, value=null)
+	{
+		var memcache, prefix, lastKey;
+
+		let memcache = this->_memcache;
+
+		if typeof memcache != "object" {
+			this->_connect();
+			let memcache = this->_memcache;
+		}
+
+		if !keyName {
+			let lastKey = this->_lastKey;
+		} else {
+			let prefix = this->_prefix;
+			let lastKey = prefix . keyName;
+			let this->_lastKey = lastKey;
+		}
+
+		if !value {
+			let value = 1;
+		}
+
+		return memcache->decrement(lastKey, value);
+	}
+
+	/**
+	 * Immediately invalidates all existing items.
+	 *
+	 * @return boolean
+	 */
+	public function flush() -> boolean
+	{
+		var memcache, options, keys, specialKey, key;
+
+		let memcache = this->_memcache;
+
+		if typeof memcache != "object" {
+			this->_connect();
+			let memcache = this->_memcache;
+		}
+
+		let options = this->_options;
+
+		if !fetch specialKey, options["statsKey"] {
+			throw new \Phalcon\Cache\Exception("Unexpected inconsistency in options");
+		}
+
+		/**
+		 * Get the key from memcached
+		 */
+		let keys = memcache->get(specialKey);
+		if typeof keys == "array" {
+			for key in keys {
+				memcache->delete(key);
+			}
+			memcache->set(specialKey, keys);
+		}
+		return true;
+	}
+
 }