From 905478e913aa51469c79f8a52d4f5e833004419b Mon Sep 17 00:00:00 2001
From: Arne Georg Gleditsch <argggh@lxr.linpro.no>
Date: Tue, 27 Nov 2007 00:58:09 +0100
Subject: Tune caching functionality a bit.

---
 lib/LXRng/Repo/Git.pm           | 6 ++++++
 lib/LXRng/Repo/Git/Directory.pm | 6 ++++++
 2 files changed, 12 insertions(+)

(limited to 'lib/LXRng/Repo')

diff --git a/lib/LXRng/Repo/Git.pm b/lib/LXRng/Repo/Git.pm
index 757da26..3619427 100644
--- a/lib/LXRng/Repo/Git.pm
+++ b/lib/LXRng/Repo/Git.pm
@@ -30,6 +30,12 @@ sub new {
     return bless({root => $root, %args}, $class);
 }
 
+sub cache_key {
+    my ($self) = @_;
+
+    return $$self{'root'};
+}
+
 sub _release_timestamp {
     my ($self, $release) = @_;
 
diff --git a/lib/LXRng/Repo/Git/Directory.pm b/lib/LXRng/Repo/Git/Directory.pm
index 592e608..1fdcc32 100644
--- a/lib/LXRng/Repo/Git/Directory.pm
+++ b/lib/LXRng/Repo/Git/Directory.pm
@@ -12,6 +12,12 @@ sub new {
 		 $class);
 }
 
+sub cache_key {
+    my ($self) = @_;
+
+    return $$self{'repo'}->cache_key.":".$$self{'ref'};
+}
+
 sub time {
     my ($self) = @_;
 
-- 
cgit v1.2.3