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