package Test::Case::Modul1;
use strict;
use warnings;

sub new {
    my $class = shift;
    my $self  = {};
    my $self->{FehlerHandler} = sub{warn("$_[0]\n"); 1};
    bless($self,$class);
    return $self;
}

sub setzeFehlerbehandlung {
    my $self    = shift;
    my $handler = shift;
    if(ref($handler) eq 'CODE'){
      $self->{FehlerHandler}=$handler;
      return 1;
    }
    return 0;
}

sub printMessage {
    my $self = shift;
    my $msg  = shift || ''; 
    return $self->{FehlerHandler}->($msg);
}

1;