contrib/perl5/ext/NDBM_File/NDBM_File.pm

   1 package NDBM_File;
   2
   3 BEGIN {
   4     if ($] >= 5.002) {
   5         use strict;
   6     }
   7 }
   8 use vars qw($VERSION @ISA);
   9
  10 require Tie::Hash;
  11 require DynaLoader;
  12
  13 @ISA = qw(Tie::Hash DynaLoader);
  14
  15 $VERSION = "1.01";
  16
  17 bootstrap NDBM_File $VERSION;
  18
  19 1;
  20
  21 __END__
  22
  23 =head1 NAME
  24
  25 NDBM_File - Tied access to ndbm files
  26
  27 =head1 SYNOPSIS
  28
  29  use NDBM_File;
  30  use Fcntl;       # for O_ constants
  31
  32  tie(%h, 'NDBM_File', 'Op.dbmx', O_RDWR|O_CREAT, 0640);
  33
  34  untie %h;
  35
  36 =head1 DESCRIPTION
  37
  38 See L<perlfunc/tie>
  39
  40 =cut