ext/SDBM_File/SDBM_File.pm

   1 package SDBM_File;
   2
   3 use strict;
   4 use vars qw($VERSION @ISA);
   5
   6 require Tie::Hash;
   7 require DynaLoader;
   8
   9 @ISA = qw(Tie::Hash DynaLoader);
  10
  11 $VERSION = "1.00" ;
  12
  13 bootstrap SDBM_File $VERSION;
  14
  15 1;
  16
  17 __END__
  18
  19 =head1 NAME
  20
  21 SDBM_File - Tied access to sdbm files
  22
  23 =head1 SYNOPSIS
  24
  25  use SDBM_File;
  26
  27  tie(%h, 'SDBM_File', 'Op.dbmx', O_RDWR|O_CREAT, 0640);
  28
  29  untie %h;
  30
  31 =head1 DESCRIPTION
  32
  33 See L<perlfunc/tie>
  34
  35 =cut