tests

[dbsrgits/DBIx-Class-Cursor-Cached.git] / lib / DBIx / Class / Cursor / Cached.pm

diff --git a/lib/DBIx/Class/Cursor/Cached.pm b/lib/DBIx/Class/Cursor/Cached.pm
index b27ed81..7fa9d33 100644 (file)
--- a/lib/DBIx/Class/Cursor/Cached.pm
+++ b/lib/DBIx/Class/Cursor/Cached.pm
@@ -6,6 +6,10 @@ use 5.6.1;
 use Storable ();
 use Digest::SHA1 ();
 
+use vars qw($VERSION);
+
+$VERSION = '0.999001_01';
+
 sub new {
   my $class = shift;
   my ($storage, $args, $attrs) = @_;
@@ -64,6 +68,8 @@ sub clear_cache {
   delete $self->{data};
 }
 
+sub cache_key { shift->{cache_key} }
+
 1;
 
 =head1 NAME