=head1 SYNOPSIS
use GDBM_File ;
- tie %hash, GDBM_File, $filename, &GDBM_WRCREAT, 0640);
+ tie %hash, 'GDBM_File', $filename, &GDBM_WRCREAT, 0640;
# Use the %hash array.
untie %hash ;
=head1 AVAILABILITY
-Gdbm is available from any GNU archive. The master site is
-C<prep.ai.mit.edu>, but your are strongly urged to use one of the many
-mirrors. You can obtain a list of mirror sites by issuing the
-command C<finger fsf@prep.ai.mit.edu>.
+gdbm is available from any GNU archive. The master site is
+C<ftp.gnu.org>, but you are strongly urged to use one of the many
+mirrors. You can obtain a list of mirror sites from
+http://www.gnu.org/order/ftp.html.
=head1 BUGS
The available functions and the gdbm/perl interface need to be documented.
+The GDBM error number and error message interface needs to be added.
+
=head1 SEE ALSO
-L<perl(1)>, L<DB_File(3)>.
+L<perl(1)>, L<DB_File(3)>, L<perldbmfilter>.
=cut
package GDBM_File;
+use strict;
+use warnings;
+our($VERSION, @ISA, @EXPORT, $AUTOLOAD);
+
require Carp;
-require TieHash;
+require Tie::Hash;
require Exporter;
-use AutoLoader;
-require DynaLoader;
-@ISA = qw(TieHash Exporter DynaLoader);
+use XSLoader ();
+@ISA = qw(Tie::Hash Exporter);
@EXPORT = qw(
GDBM_CACHESIZE
+ GDBM_CENTFREE
+ GDBM_COALESCEBLKS
GDBM_FAST
+ GDBM_FASTMODE
GDBM_INSERT
GDBM_NEWDB
+ GDBM_NOLOCK
+ GDBM_OPENMASK
GDBM_READER
GDBM_REPLACE
+ GDBM_SYNC
+ GDBM_SYNCMODE
GDBM_WRCREAT
GDBM_WRITER
);
+# This module isn't dual life, so no need for dev version numbers.
+$VERSION = '1.09';
+
sub AUTOLOAD {
- local($constname);
+ my($constname);
($constname = $AUTOLOAD) =~ s/.*:://;
- $val = constant($constname, @_ ? $_[0] : 0);
- if ($! != 0) {
- if ($! =~ /Invalid/) {
- $AutoLoader::AUTOLOAD = $AUTOLOAD;
- goto &AutoLoader::AUTOLOAD;
- }
- else {
- Carp::croak("Your vendor has not defined GDBM_File macro $constname, used");
- }
- }
- eval "sub $AUTOLOAD { $val }";
- goto &$AUTOLOAD;
+ my ($error, $val) = constant($constname);
+ Carp::croak $error if $error;
+ no strict 'refs';
+ *{$AUTOLOAD} = sub { $val };
+ goto &{$AUTOLOAD};
}
-bootstrap GDBM_File;
-
-# Preloaded methods go here. Autoload methods go after __END__, and are
-# processed by the autosplit program.
+XSLoader::load 'GDBM_File', $VERSION;
1;
-__END__