package Test::Case::Modul2;

sub new {
    $self = shift;

    return $self;
}

sub fehlerbehandlung {
    $self = shift;
    $msg  = shift;

    print "O" x 30;
    print "\n";
    print "Error handling in Modul2\n";
    print "Caller was: ".caller(0)."\n";
    print "Message: ".$msg."\n";
    print "O" x 30;
    print "\n";
}

1;