sub new {
    my ($class, $name) = (shift, shift);
    my $self  = {
        childs => [],
        name   => $name,
        parent => undef,
    };

    return bless $self, $class;
}

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