ext/NDBM_File/NDBM_File.pm

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