package TestClass;

#######################################

# Klassenvariablen


# Konstruktor

sub new
{
    my $object = shift();
    my $reference = {};
    
    bless($reference, $object);
    
    
    # Objekt-Felder
    $reference->{testFeld} = [];
    
    return($reference);
}


# --- Getter ---

sub get_arr_testFeld
{
    my $object = shift();
    return($object->{testFeld});
}


# --- Setter ---

sub set_arr_testFeld
{
    my $object = shift();
    my @testFeld = shift();
    
    $object->{testFeld} = @testFeld;
}


# --- Methoden ---

sub printIt
{
    my $object = shift();
    
    print($object->get_arr_testFeld());
}


#######################################

1;

$reference->{testFeld} = [];

11