package Test::Case::Modul1;
my $fehlerHandler;
my $msg = "testfehler";

sub new {
    $self = shift;

    return $self;
}

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

sub printMessage {
    $self = shift;
    &$fehlerHandler($msg);
}

1;