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.00";
  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
  31  tie(%h, 'NDBM_File', 'Op.dbmx', O_RDWR|O_CREAT, 0640);
  32
  33  untie %h;
  34
  35 =head1 DESCRIPTION
  36
  37 See L<perlfunc/tie>
  38
  39 =cut