# Child
sub whereami {

  my $self=shift;
  my $parent=$self->{'parent'};
  my $id=$parent->get_child_id($self);

}