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