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

package SDBM_File;

use strict;
use vars qw($VERSION @ISA);

require Tie::Hash;
require DynaLoader;

@ISA = qw(Tie::Hash DynaLoader);

$VERSION = "1.00" ;

bootstrap SDBM_File $VERSION;

1;

__END__

=head1 NAME

SDBM_File - Tied access to sdbm files

=head1 SYNOPSIS

 use SDBM_File;

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

 untie %h;

=head1 DESCRIPTION

See L<perlfunc/tie>

=cut
Commit	Line	Data
a0d0e21e	1	package SDBM_File;
a0d0e21e	2
ed3c51d2	3	use strict;
	4	use vars qw($VERSION @ISA);
	5
	6	require Tie::Hash;
a0d0e21e	7	require DynaLoader;
a0d0e21e	8
ed3c51d2	9	@ISA = qw(Tie::Hash DynaLoader);
	10
	11	$VERSION = "1.00" ;
c07a80fd	12
ed3c51d2	13	bootstrap SDBM_File $VERSION;
a0d0e21e	14
	15	1;
	16
	17	__END__
a5f75d66	18
	19	=head1 NAME
	20
	21	SDBM_File - Tied access to sdbm files
	22
	23	=head1 SYNOPSIS
	24
	25	use SDBM_File;
	26
c954a603	27	tie(%h, 'SDBM_File', 'Op.dbmx', O_RDWR\|O_CREAT, 0640);
a5f75d66	28
	29	untie %h;
	30
	31	=head1 DESCRIPTION
	32
	33	See L<perlfunc/tie>
	34
	35	=cut