Commit | Line | Data |
---|---|---|
a0d0e21e | 1 | package ODBM_File; |
2 | ||
96318ac8 | 3 | use strict; |
4 | use vars qw($VERSION @ISA); | |
5 | ||
6 | require Tie::Hash; | |
9426adcd | 7 | use DynaLoader (); |
a0d0e21e | 8 | |
9426adcd | 9 | @ISA = qw(Tie::Hash); |
96318ac8 | 10 | |
e62f7e43 | 11 | $VERSION = "1.02"; |
c07a80fd | 12 | |
9426adcd | 13 | XSLoader::load 'ODBM_File', $VERSION; |
a0d0e21e | 14 | |
15 | 1; | |
16 | ||
17 | __END__ | |
a5f75d66 | 18 | |
19 | =head1 NAME | |
20 | ||
21 | ODBM_File - Tied access to odbm files | |
22 | ||
23 | =head1 SYNOPSIS | |
24 | ||
25 | use ODBM_File; | |
26 | ||
c954a603 | 27 | tie(%h, 'ODBM_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 |