Commit | Line | Data |
---|---|---|
a0d0e21e | 1 | package SDBM_File; |
2 | ||
ed3c51d2 | 3 | use strict; |
ed3c51d2 | 4 | |
5 | require Tie::Hash; | |
9426adcd | 6 | use XSLoader (); |
a0d0e21e | 7 | |
17f410f9 | 8 | our @ISA = qw(Tie::Hash); |
9 | our $VERSION = "1.02" ; | |
c07a80fd | 10 | |
9426adcd | 11 | XSLoader::load 'SDBM_File', $VERSION; |
a0d0e21e | 12 | |
13 | 1; | |
14 | ||
15 | __END__ | |
a5f75d66 | 16 | |
17 | =head1 NAME | |
18 | ||
19 | SDBM_File - Tied access to sdbm files | |
20 | ||
21 | =head1 SYNOPSIS | |
22 | ||
23 | use SDBM_File; | |
24 | ||
c954a603 | 25 | tie(%h, 'SDBM_File', 'Op.dbmx', O_RDWR|O_CREAT, 0640); |
a5f75d66 | 26 | |
27 | untie %h; | |
28 | ||
29 | =head1 DESCRIPTION | |
30 | ||
9fe6733a | 31 | See L<perlfunc/tie>, L<perldbmfilter> |
a5f75d66 | 32 | |
33 | =cut |