#!/usr/bin/perl
package DOCUMENT;

use strict;
use warnings;

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

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

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

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

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

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

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

1;

#!/usr/bin/perl

use strict;
use warnings;

package DOCUMENT;
use Moose;

has 'parent'        => ( is => 'rw' );
has 'child'         => ( is => 'rw' );
has 'doc_format'    => ( is => 'rw' );
has 'name'          => ( is => 'rw' );
has 'doc_type'      => ( is => 'rw' );
has 'spalteninfo'   => ( is => 'rw' );

1;