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

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

sub fehlerbehandlung {
    my $self = shift;
    my $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";

    return 1;
}

1;