Lines Matching refs:db1
35 ok 1, my $db1 = tie %hash1, 'BerkeleyDB::Hash',
42 eval '$cursor = $db1->db_join() ;' ;
46 eval '$cursor = $db1->db_join([]) ;' ;
50 eval '$cursor = $db1->db_join({}) ;' ;
53 eval '$cursor = $db1->db_join(\1) ;' ;
59 eval '$cursor = $db1->db_join($a, $b) ;' ;
83 ok 11, my $db1 = tie %hash1, 'BerkeleyDB::Hash',
109 ok 14, addData($db1, qw( apple Convenience
140 ok 19, my $cursor1 = $db1->db_join([$cursor2]) ;
166 ok 26, $cursor1 = $db1->db_join([$cursor2, $cursor3]) ;
192 ok 33, $cursor1 = $db1->db_join([$cursor2, $cursor3]) ;
217 ok 40, my $cursor1a = $db1->db_cursor() ;
218 eval { $cursor1 = $db1->db_join([$cursor1a]) };
220 eval { $cursor1 = $db1->db_join([$cursor1]) } ;
227 undef $db1 ;