diff options
Diffstat (limited to 'contrib/perl5/ext/NDBM_File/NDBM_File.pm')
-rw-r--r-- | contrib/perl5/ext/NDBM_File/NDBM_File.pm | 40 |
1 files changed, 40 insertions, 0 deletions
diff --git a/contrib/perl5/ext/NDBM_File/NDBM_File.pm b/contrib/perl5/ext/NDBM_File/NDBM_File.pm new file mode 100644 index 0000000..ed4fe2b --- /dev/null +++ b/contrib/perl5/ext/NDBM_File/NDBM_File.pm @@ -0,0 +1,40 @@ +package NDBM_File; + +BEGIN { + if ($] >= 5.002) { + use strict; + } +} +use vars qw($VERSION @ISA); + +require Tie::Hash; +require DynaLoader; + +@ISA = qw(Tie::Hash DynaLoader); + +$VERSION = "1.01"; + +bootstrap NDBM_File $VERSION; + +1; + +__END__ + +=head1 NAME + +NDBM_File - Tied access to ndbm files + +=head1 SYNOPSIS + + use NDBM_File; + use Fcntl; # for O_ constants + + tie(%h, 'NDBM_File', 'Op.dbmx', O_RDWR|O_CREAT, 0640); + + untie %h; + +=head1 DESCRIPTION + +See L<perlfunc/tie> + +=cut |