1package NDBM_File;
2
3BEGIN {
4    if ($] >= 5.002) {
5	use strict;
6    }
7}
8use vars qw($VERSION @ISA);
9
10require Tie::Hash;
11require DynaLoader;
12
13@ISA = qw(Tie::Hash DynaLoader);
14
15$VERSION = "1.00";
16
17bootstrap NDBM_File $VERSION;
18
191;
20
21__END__
22
23=head1 NAME
24
25NDBM_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
37See L<perlfunc/tie>
38
39=cut
40