sub new {
  my ($class, $name) = (shift, shift);
  my $self  = {};

  $self->{childs} = [];
  $self->{name} = $name;
  $self->{parent} = undef;

  return bless $self, $class;
}

sub name {
   return shift->{name};
}