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