Lines Matching refs:key
15 my ($h,$key) = ($_[0][0], $_[1]);
16 my $res = $h->{$key};
18 return $res if exists $h->{$key}; # Accessible, but undef
19 my $cache = $_[0][1]{$key};
21 my @res = $_[0][2]->($key, $_[0][4]); # Autoload
22 $_[0][1]{$key} = 0, return unless @res; # Cache non-existence
23 delete $_[0][1]{$key}; # Clear existence cache, not needed any more
24 $_[0][0]{$key} = $res[0]; # Store data and return
28 my ($a,$key) = (shift, shift);
29 return 1 if exists $a->[0]{$key}; # Have data
30 my $cache = $a->[1]{$key};
32 my @res = $a->[3]($key,$a->[4]);
33 $_[0][1]{$key} = 0, return unless @res; # Cache non-existence
35 return ($_[0][1]{$key} = 1) if $a->[5]; # Only existence reported
37 $_[0][0]{$key} = $res[0]; # Store data
78 same signature: the arguments are C<$key, $data>; $data is the same
83 intended value if the key is valid.
101 my ($key, $dir) = shift;
102 open my $h, '<', "$dir/$key" or return;
105 sub exists { my ($key, $dir) = shift; return -f "$dir/$key" }