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