From d7aca19faade6fb8f4aa47213d0f38b14cb9854a Mon Sep 17 00:00:00 2001
From: Matthew Somerville <matthew@mysociety.org>
Date: Wed, 17 Jun 2020 15:56:04 +0100
Subject: [Bromley] Restrict waste lookups per day.

---
 perllib/Memcached.pm | 11 +++++++++++
 1 file changed, 11 insertions(+)

(limited to 'perllib/Memcached.pm')

diff --git a/perllib/Memcached.pm b/perllib/Memcached.pm
index d03897e5a..099440f82 100644
--- a/perllib/Memcached.pm
+++ b/perllib/Memcached.pm
@@ -33,4 +33,15 @@ sub delete {
     instance->delete(@_);
 }
 
+sub increment {
+    my $key = shift;
+    my $timeout = shift;
+    my $count = instance->incr($key);
+    if (!defined $count) {
+        instance->add($key, 0, $timeout);
+        $count = instance->incr($key);
+    };
+    return $count;
+}
+
 1;
-- 
cgit v1.2.3