package Test::Case::Modul1;

my $fehlerHandler;
my $fehlerfunc;
my $msg = "testfehler";

sub new {
    my $self = shift;

    return $self;
}

sub setzeFehlerbehandlung {
    my $self = shift;
    $fehlerHandler = shift;
    $fehlerfunc = shift;
}

sub printMessage {
    my $self = shift;
    $fehlerHandler->${fehlerfunc}($msg);
}

sub getError {
    my $self = shift;

    return $msg;
}

sub setzeNachricht {
    my $self = shift;
    my $text = shift;

$msg = $text;

}
1;