sub parent {
my($self, $parent) = @_;
$$self{parent} = $parent if defined $parent;
return $$self{parent}
}

##</code><code>##

sub parent {
my($self, $parent) = @_;
$$self{parent} = $parent if 1 < @_;
return $$self{parent}
}