Lines Matching refs:store_key
572 my ($fetch_key, $store_key, $fetch_value, $store_value) = ("") x 4 ;
583 print "# Store Key : expected '$sk' got '$store_key'\n"
584 if $store_key ne $sk ;
591 $fetch_key eq $fk && $store_key eq $sk &&
599 $db->filter_store_key (sub { $store_key = $_ }) ;
609 ($fetch_key, $store_key, $fetch_value, $store_value) = ("") x 4 ;
614 ($fetch_key, $store_key, $fetch_value, $store_value) = ("") x 4 ;
623 (sub { $_ *= 2 ; $store_key = $_ }) ;
629 ($fetch_key, $store_key, $fetch_value, $store_value) = ("") x 4 ;
634 ($fetch_key, $store_key, $fetch_value, $store_value) = ("") x 4 ;
639 ($fetch_key, $store_key, $fetch_value, $store_value) = ("") x 4 ;
650 ($fetch_key, $store_key, $fetch_value, $store_value) = ("") x 4 ;
654 ($fetch_key, $store_key, $fetch_value, $store_value) = ("") x 4 ;
658 ($fetch_key, $store_key, $fetch_value, $store_value) = ("") x 4 ;
668 ($fetch_key, $store_key, $fetch_value, $store_value) = ("") x 4 ;
672 ($fetch_key, $store_key, $fetch_value, $store_value) = ("") x 4 ;
676 ($fetch_key, $store_key, $fetch_value, $store_value) = ("") x 4 ;