1 package Amanda::Config::FoldingHash;
3 use base 'Tie::StdHash';
19 return Amanda::Config::amandaify_property_name(@_);
24 return bless({}, $class);
28 my ($self, $key) = @_;
29 my $am = _amandaify($key);
30 return $self->{_amandaify($key)};
34 my ($self, $key, $value) = @_;
35 return $self->{_amandaify($key)} = $value;
39 my ($self, $key) = @_;
40 return exists($self->{_amandaify($key)});
44 my ($self, $key) = @_;
45 return delete($self->{_amandaify($key)});