view release on metacpan or  search on metacpan

lib/AtteanX/Store/LMDB.pm  view on Meta::CPAN

sub BUILDARGS {
	my $class	= shift;
	my @params 	= @_;
	my %args;
	if (scalar(@params) == 1) {
		%args	= (filename => shift(@params));
	} else {
		%args	= @params;
	}
	return $class->SUPER::BUILDARGS(%args);
}

sub BUILD {
	my $self	= shift;
	my $file	= $self->filename;
	
	unless (-d $file) {
		make_path($file);
	}
	my $env = LMDB::Env->new($file, {