Cross Reference: /osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/ODBM

Lines Matching refs:db
220    my (%h, $db) ;
235    ok(19, $db = tie(%h, 'ODBM_File','Op.dbmx', O_RDWR|O_CREAT, 0640)) ;
237    $db->filter_fetch_key   (sub { $fetch_key = $_ }) ;
238    $db->filter_store_key   (sub { $store_key = $_ }) ;
239    $db->filter_fetch_value (sub { $fetch_value = $_}) ;
240    $db->filter_store_value (sub { $store_value = $_ }) ;
254    ok(23, $db->FIRSTKEY() eq "fred") ;
259    my ($old_fk) = $db->filter_fetch_key   
261    my ($old_sk) = $db->filter_store_key   
263    my ($old_fv) = $db->filter_fetch_value 
265    my ($old_sv) = $db->filter_store_value 
279    ok(28, $db->FIRSTKEY() eq "FRED") ;
284    $db->filter_fetch_key   ($old_fk);
285    $db->filter_store_key   ($old_sk);
286    $db->filter_fetch_value ($old_fv);
287    $db->filter_store_value ($old_sv);
298    ok(33, $db->FIRSTKEY() eq "fred") ;
302    $db->filter_fetch_key   (undef);
303    $db->filter_store_key   (undef);
304    $db->filter_fetch_value (undef);
305    $db->filter_store_value (undef);
316    ok(38, $db->FIRSTKEY() eq "fred") ;
319    undef $db ;
329     my (%h, $db) ;
332     ok(40, $db = tie(%h, 'ODBM_File','Op.dbmx', O_RDWR|O_CREAT, 0640)) ;
348     $db->filter_store_key(Closure("store key")) ;
349     $db->filter_store_value(Closure("store value")) ;
350     $db->filter_fetch_key(Closure("fetch key")) ;
351     $db->filter_fetch_value(Closure("fetch value")) ;
362     ok(46, $db->FIRSTKEY() eq "fred") ;
383     undef $db ;
392    my (%h, $db) ;
395    ok(63, $db = tie(%h, 'ODBM_File','Op.dbmx', O_RDWR|O_CREAT, 0640)) ;
397    $db->filter_store_key (sub { $_ = $h{$_} }) ;
402    undef $db ;
442     ok(67, my $db = tie(%h, 'ODBM_File','Op.dbmx', O_RDWR|O_CREAT, 0640)) ;
443     $db->filter_fetch_key (sub { $_ =~ s/^Beta_/Alpha_/ if defined $_}) ;
444     $db->filter_store_key (sub { $bad_key = 1 if /^Beta_/ ; $_ =~ s/^Alpha_/Beta_/}) ;
464     undef $db ;
478    ok(73, my $db = tie(%h, 'ODBM_File','Op.dbmx', O_RDWR|O_CREAT, 0640)) ;
480    $db->filter_fetch_key   (sub { }) ;
481    $db->filter_store_key   (sub { }) ;
482    $db->filter_fetch_value (sub { }) ;
483    $db->filter_store_value (sub { }) ;
495    $db->filter_fetch_key   (undef);
496    $db->filter_store_key   (undef);
497    $db->filter_fetch_value (undef);
498    $db->filter_store_value (undef);
504    ok(77, $db->FIRSTKEY() eq "fred") ;
509    undef $db ;