Lines Matching refs:key
52 while (my ($key,$value) = each(%h)) {
107 while (my ($key,$value) = each(%h)) {
108 if ($key eq $keys[$i] && $value eq $values[$i] && $key eq lc($value)) {
109 $key =~ y/a-z/A-Z/;
110 $i++ if $key eq $value;
166 my $key = shift ;
168 $self->SUPER::STORE($key, $value * 2) ;
173 my $key = shift ;
174 $self->SUPER::FETCH($key) - 1 ;
180 my $key = shift ;
181 my $value = $self->FETCH($key) ;
346 $db->filter_store_key(Closure("store key")) ;
348 $db->filter_fetch_key(Closure("fetch key")) ;
354 ok(41, $result{"store key"} eq "store key - 1: [fred]");
356 ok(43, !defined $result{"fetch key"} );
361 ok(47, $result{"store key"} eq "store key - 1: [fred]");
363 ok(49, $result{"fetch key"} eq "fetch key - 1: [fred]");
368 ok(52, $result{"store key"} eq "store key - 2: [fred jim]");
370 ok(54, $result{"fetch key"} eq "fetch key - 1: [fred]");
375 ok(58, $result{"store key"} eq "store key - 3: [fred jim fred]");
377 ok(60, $result{"fetch key"} eq "fetch key - 1: [fred]");
423 # When iterating over a tied hash using "each", the key passed to FETCH
425 # key in FETCH via a filter_fetch_key method we need to check that the
426 # modified key doesn't get passed to NEXTKEY.