package TestClass;

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

# Klassenvariablen


# Konstruktor

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


# --- Getter ---

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


# --- Setter ---

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


# --- Methoden ---

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


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

1;

#!/usr/bin/perl -w

use strict;

use TestClass;

sub main
{
    my $test = TestClass->new();
    
    my @arr = ('<test val="blabla">hallo</test>', '123456', 'abcdef');
    
    $test->set_arr_testFeld(@arr);
    
    $test->printIt();
    
    print($test->get_arr_testFeld());
}

&main();

00