sub TIEHASH {
my ($class, $changed, $removed, $parent) = @_;
sub TIEHASH {
my ($class, $changed, $removed, $parent) = @_;
if (exists $self->{changed}{$key}) {
return 1;
} elsif (exists $self->{removed}{$key}) {
return '';
} elsif (defined $self->{parent}) {
if (exists $self->{changed}{$key}) {
return 1;
} elsif (exists $self->{removed}{$key}) {
return '';
} elsif (defined $self->{parent}) {