1package SDBM_File; 2 3use strict; 4use vars qw($VERSION @ISA); 5 6require Tie::Hash; 7require DynaLoader; 8 9@ISA = qw(Tie::Hash DynaLoader); 10 11$VERSION = "1.00" ; 12 13bootstrap SDBM_File $VERSION; 14 151; 16 17__END__ 18 19=head1 NAME 20 21SDBM_File - Tied access to sdbm files 22 23=head1 SYNOPSIS 24 25 use SDBM_File; 26 27 tie(%h, 'SDBM_File', 'Op.dbmx', O_RDWR|O_CREAT, 0640); 28 29 untie %h; 30 31=head1 DESCRIPTION 32 33See L<perlfunc/tie> 34 35=cut 36