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;
164 my $key = shift ;
166 $self->SUPER::STORE($key, $value * 2) ;
171 my $key = shift ;
172 $self->SUPER::FETCH($key) - 1 ;
178 my $key = shift ;
179 my $value = $self->FETCH($key) ;
350 $db->filter_store_key(Closure("store key")) ;
352 $db->filter_fetch_key(Closure("fetch key")) ;
358 ok(43, $result{"store key"} eq "store key - 1: [fred]");
360 ok(45, !defined $result{"fetch key"} );
365 ok(49, $result{"store key"} eq "store key - 1: [fred]");
367 ok(51, $result{"fetch key"} eq "fetch key - 1: [fred]");
372 ok(54, $result{"store key"} eq "store key - 2: [fred jim]");
374 ok(56, $result{"fetch key"} eq "fetch key - 1: [fred]");
379 ok(60, $result{"store key"} eq "store key - 3: [fred jim fred]");
381 ok(62, $result{"fetch key"} eq "fetch key - 1: [fred]");
432 # When iterating over a tied hash using "each", the key passed to FETCH
434 # key in FETCH via a filter_fetch_key method we need to check that the
435 # modified key doesn't get passed to NEXTKEY.