This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
6072e651fcc19e35d142171e18409c6d7aab078d
[perl5.git] / 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