X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMemoize%2FAnyDBM_File.pm;h=91f960962f959ddedb7a82a41e87b19571d46c3a;hb=011f1a1a00b94fe919083a224d5df636f05ae32a;hp=eb2e659c0dcd444213c4ea4207afbee1159b7796;hpb=a0cb39004565ec2396fbdb3f1949b8f13304208e;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/Memoize/AnyDBM_File.pm b/lib/Memoize/AnyDBM_File.pm
index eb2e659..91f9609 100644
--- a/lib/Memoize/AnyDBM_File.pm
+++ b/lib/Memoize/AnyDBM_File.pm
@@ -1,6 +1,17 @@
 package Memoize::AnyDBM_File;
 
-use vars qw(@ISA);
+=head1 NAME
+
+Memoize::AnyDBM_File - glue to provide EXISTS for AnyDBM_File for Storable use
+
+=head1 DESCRIPTION
+
+See L<Memoize>.
+
+=cut
+
+use vars qw(@ISA $VERSION);
+$VERSION = 0.65;
 @ISA = qw(DB_File GDBM_File Memoize::NDBM_File Memoize::SDBM_File ODBM_File) unless @ISA;
 
 my $verbose = 1;
@@ -8,6 +19,8 @@ my $verbose = 1;
 my $mod;
 for $mod (@ISA) {
 #  (my $truemod = $mod) =~ s/^Memoize:://;
+#  my $file = "$mod.pm";
+#  $file =~ s{::}{/}g;
   if (eval "require $mod") {
     print STDERR "AnyDBM_File => Selected $mod.\n" if $Verbose;
     @ISA = ($mod);	# if we leave @ISA alone, warnings abound