#!/usr/bin/perl -w

use Test::Case::Modul1;
use Test::Case::Modul2;

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

$modul1->setzeNachricht("super duper hyper fehler text!");

$modul1->setzeFehlerbehandlung($modul2,"fehlerbehandlung");
$modul1->printMessage();

sub fehlerbehandlung {
    my $nachricht = shift;

    print "-" x 30;
    print "\n";
    print "Fehlerbehandlung in der Hauptroutine\n";
    print "Aufruf von: ".caller(0)."\n";
    print "Nachricht: $nachricht\n";
    print "-" x 30;
    print "\n";
}