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

sub new {
    my $class = shift;
    my $self  = {};
    my $self->{FehlerHandler} = $self;
    bless($self,$class);
    return $self;
}

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

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

sub fehlerbehandlung {
    my $self = shift;
    my $msg  = shift;
    warn("$msg");
    return 1;
}


1;