my $parent=shift;
my $self=do{local *self=*$parent;\%self}