package document;

use strict;


sub new {
    my ( $class ) = @_;
    my $self = {
        parent => undef,
        child  => undef,
        doc_kind     => undef,
        name  => undef
        spalteninfo  => undef
    };
    bless( $self, $class );
    return $self;
}

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