[p5sagit/p5-mst-13.2.git] / ext / NDBM_File / NDBM_File.pm

package NDBM_File;

BEGIN {
    if ($] >= 5.002) {
	use strict;
    }
}

require Tie::Hash;
use XSLoader ();

our @ISA = qw(Tie::Hash);
our $VERSION = "1.03";

XSLoader::load '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>, L<perldbmfilter>

=cut
Commit	Line	Data
a0d0e21e	1	package NDBM_File;
a0d0e21e	2
43c9fafc	3	BEGIN {
	4	if ($] >= 5.002) {
	5	use strict;
	6	}
	7	}
96318ac8	8
96318ac8	9	require Tie::Hash;
cb50131a	10	use XSLoader ();
a0d0e21e	11
cb50131a	12	our @ISA = qw(Tie::Hash);
cb50131a	13	our $VERSION = "1.03";
c07a80fd	14
146174a9	15	XSLoader::load 'NDBM_File', $VERSION;
a0d0e21e	16
	17	1;
	18
	19	__END__
a5f75d66	20
	21	=head1 NAME
	22
	23	NDBM_File - Tied access to ndbm files
	24
	25	=head1 SYNOPSIS
	26
	27	use NDBM_File;
ee580363	28	use Fcntl; # for O_ constants
a5f75d66	29
c954a603	30	tie(%h, 'NDBM_File', 'Op.dbmx', O_RDWR\|O_CREAT, 0640);
a5f75d66	31
	32	untie %h;
	33
	34	=head1 DESCRIPTION
	35
9fe6733a	36	See L<perlfunc/tie>, L<perldbmfilter>
a5f75d66	37
a5f75d66	38	=cut