Plugin::KeyValueStore: add cache()

diff --git a/src/newslash_web/lib/Newslash/Plugin/KeyValueStore.pm b/src/newslash_web/lib/Newslash/Plugin/KeyValueStore.pm
index c9bd80b..abc5579 100644 (file)
--- a/src/newslash_web/lib/Newslash/Plugin/KeyValueStore.pm
+++ b/src/newslash_web/lib/Newslash/Plugin/KeyValueStore.pm
@@ -12,6 +12,26 @@ sub _connect {
     return $r;
 }
 
+sub cache {
+    my $self = shift;
+    my $key = shift;
+    my $expire = shift;
+    my $func_ref = shift;
+    my @args = @_;
+
+    my $value = $self->get($key);
+
+    if ($value) {
+        # cache hit!
+        return $value;
+    }
+
+    # cache unhit, then execute function and cache result
+    $value = $func_ref->(@args);
+    $self->set($key, $value, $expire);
+    return $value;
+}
+
 sub hset {
     my ($self, $key, $field, $value) = @_;
     my $r = $self->_connect;