Lines Matching refs:BerkeleyDB
8 use BerkeleyDB;
13 if $BerkeleyDB::db_version < 3.3;
30 eval ' $db = new BerkeleyDB::Queue -Stupid => 3 ; ' ;
33 eval ' $db = new BerkeleyDB::Queue -Bad => 2, -Mode => 0345, -Stupid => 3; ' ;
36 eval ' $db = new BerkeleyDB::Queue -Env => 2 ' ;
37 ok $@ =~ /^Env not of type BerkeleyDB::Env/ ;
39 eval ' $db = new BerkeleyDB::Queue -Txn => "x" ' ;
40 ok $@ =~ /^Txn not of type BerkeleyDB::Txn/ ;
43 eval ' $db = new BerkeleyDB::Queue -Env => $obj ' ;
44 ok $@ =~ /^Env not of type BerkeleyDB::Env/ ;
54 ok my $db = new BerkeleyDB::Queue -Filename => $Dfile,
109 ok my $env = new BerkeleyDB::Env -Flags => DB_CREATE|DB_INIT_MPOOL,@StdErrFile,
111 ok my $db = new BerkeleyDB::Queue -Filename => $Dfile,
133 ok my $db = new BerkeleyDB::Queue -Filename => $Dfile,
201 ok $db = tie @array, 'BerkeleyDB::Queue', -Filename => $Dfile,
313 ok my $db = tie @array, 'BerkeleyDB::Queue',
329 ok my $db = new BerkeleyDB::Queue -Filename => $Dfile,
417 ok my $db = tie @array, 'BerkeleyDB::Queue', -Filename => $Dfile,
502 ok my $env = new BerkeleyDB::Env -Home => $home,@StdErrFile,
506 ok my $db1 = tie @array, 'BerkeleyDB::Queue',
570 my $recs = ($BerkeleyDB::db_version >= 3.1 ? "qs_ndata" : "qs_nrecs") ;
574 ok my $db = new BerkeleyDB::Queue -Filename => $Dfile,
619 use BerkeleyDB;
620 @ISA=qw(BerkeleyDB BerkeleyDB::Queue);
621 @EXPORT = @BerkeleyDB::EXPORT ;
696 ok my $db = tie @array, 'BerkeleyDB::Queue',
721 ok $db = tie @array, 'BerkeleyDB::Queue',
746 ok my $env = new BerkeleyDB::Env -Home => $home,@StdErrFile,
750 ok $db = tie @array, 'BerkeleyDB::Queue', -Filename => $Dfile,