#!/usr/bin/perl
use strict:
use warnings;
use Test::Case::Modul1;
use Test::Case::Modul2;

my $modul1 = new Test::Case::Modul1;
my $modul2 = new Test::Case::Modul2;

$modul1->setzeFehlerbehandlung( sub{ $modul2->fehlerbehandlung(@_); });
$modul1->printMessage("testfehler");