Lines Matching refs:key
52 my ($self, $key, $value) = @_;
57 $self->{C}{$key} = $header . $value;
105 my ($self, $key, $data, @header) = @_;
106 $self->{C}{$key} = _make_header(@header) . $data;
255 already, it will invoke C<< C->EXISTS(key) >>. C<key> is the normalized
256 function argument. MyExpirePolicy::EXISTS should return 0 if the key
263 cached value by invoking C<< C->FETCH(key) >>. MyExpirePolicy::FETCH should
266 cache by calling C<< C->STORE(key, value) >>.
280 my ($cache, $key) = @_;
281 if (exists $cache->{$key} &&
282 $cache->{$key}{EXPIRE_TIME} > time) {
290 my ($cache, $key) = @_;
291 return $cache->{$key}{VALUE};
295 my ($cache, $key, $newvalue) = @_;
296 $cache->{$key}{VALUE} = $newvalue;
297 $cache->{$key}{EXPIRE_TIME} = time + 10;