package Test::Case::Modul1;

use strict;
use warnings;

sub new {
    my $self = shift;
    my $ref  = {};

    bless($ref, $self);

    $ref->{FEHLERHANDLER}=undef;
    $ref->{FEHLERFUNC}=undef;
    $ref->{FEHLERMSG}="standardfehler";
    $ref;
}

sub setzeFehlerbehandlung {
    my $self               = shift;
    $self->{FEHLERHANDLER} = shift;
    $self->{FEHLERFUNC}    = shift;
}

sub getError {
    my $self = shift;

    return $self->{FEHLERMSG};
}

sub setzeNachricht {
    my $self           = shift;
    $self->{FEHLERMSG} = shift;
}

sub printMessage {
    my $self = shift;
    $self->{FEHLERHANDLER}->$self{FEHLERFUNC}($self->{FEHLERMSG});
}

1;