Add Daniel Grisinger <dgris@dimensional.com>.

[p5sagit/p5-mst-13.2.git] / ext / SDBM_File / SDBM_File.pm

diff --git a/ext/SDBM_File/SDBM_File.pm b/ext/SDBM_File/SDBM_File.pm
index 1f93e52..a2d4df8 100644 (file)
--- a/ext/SDBM_File/SDBM_File.pm
+++ b/ext/SDBM_File/SDBM_File.pm
@@ -1,11 +1,35 @@
 package SDBM_File;
 
-require TieHash;
+use strict;
+use vars qw($VERSION @ISA);
+
+require Tie::Hash;
 require DynaLoader;
-@ISA = qw(TieHash DynaLoader);
 
-bootstrap SDBM_File;
+@ISA = qw(Tie::Hash DynaLoader);
+
+$VERSION = "1.00" ;
+
+bootstrap SDBM_File $VERSION;
 
 1;
 
 __END__
+
+=head1 NAME
+
+SDBM_File - Tied access to sdbm files
+
+=head1 SYNOPSIS
+
+ use SDBM_File;
+
+ tie(%h, 'SDBM_File', 'Op.dbmx', O_RDWR|O_CREAT, 0640);
+
+ untie %h;
+
+=head1 DESCRIPTION
+
+See L<perlfunc/tie>
+
+=cut