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

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.00";

bootstrap NDBM_File $VERSION;

1;

__END__

=head1 NAME

NDBM_File - Tied access to ndbm files

=head1 SYNOPSIS

 use NDBM_File;

 tie(%h, 'NDBM_File', 'Op.dbmx', O_RDWR|O_CREAT, 0640);

 untie %h;

=head1 DESCRIPTION

See L<perlfunc/tie>

=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	use vars qw($VERSION @ISA);
	9
	10	require Tie::Hash;
a0d0e21e	11	require DynaLoader;
a0d0e21e	12
96318ac8	13	@ISA = qw(Tie::Hash DynaLoader);
	14
	15	$VERSION = "1.00";
c07a80fd	16
96318ac8	17	bootstrap NDBM_File $VERSION;
a0d0e21e	18
	19	1;
	20
	21	__END__
a5f75d66	22
	23	=head1 NAME
	24
	25	NDBM_File - Tied access to ndbm files
	26
	27	=head1 SYNOPSIS
	28
	29	use NDBM_File;
	30
c954a603	31	tie(%h, 'NDBM_File', 'Op.dbmx', O_RDWR\|O_CREAT, 0640);
a5f75d66	32
	33	untie %h;
	34
	35	=head1 DESCRIPTION
	36
	37	See L<perlfunc/tie>
	38
	39	=cut