Commit | Line | Data |
---|---|---|
a0d0e21e | 1 | package ODBM_File; |
2 | ||
96318ac8 | 3 | use strict; |
4 | use vars qw($VERSION @ISA); | |
5 | ||
6 | require Tie::Hash; | |
a0d0e21e | 7 | require DynaLoader; |
a0d0e21e | 8 | |
96318ac8 | 9 | @ISA = qw(Tie::Hash DynaLoader); |
10 | ||
11 | $VERSION = "1.00"; | |
c07a80fd | 12 | |
96318ac8 | 13 | bootstrap 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 | ||
33 | See L<perlfunc/tie> | |
34 | ||
35 | =cut |