Lines Matching refs:key
27 my ($self, $key, $data) = @_;
29 my $cur_date = pack("N", (stat($key))[9]);
30 $cache->{"C$key"} = $data;
31 $cache->{"T$key"} = $cur_date;
35 my ($self, $key) = @_;
36 $self->{C}{"C$key"};
41 my ($self, $key) = @_;
42 my $cache_date = $self->{C}{"T$key"} || $Zero;
43 my $file_date = pack("N", (stat($key))[9]);#
45 # return $self->{ARGS}{CHECK_DATE}->($key, $old_date, $cur_date);