#!/usr/bin/perl

use strict;
use warnings;
use Carp qw(confess);

# Einfache Instanz der main
my $m = bless{};

# Fehlerbehandlung in der main:
# Script sterben lassen
$m->ziffer() or die $@;


# Ziffer von 0..9
# Fehlerbehandlung in der Methode:
# Exception werfen
sub ziffer{
    my $self = shift;
    my $z = shift;
    return eval{
        confess "Kein Argument übergeben" if ! defined $z;
        confess "Keine Ziffer übergeben" if $z !~ /^\d$/;

        # weitere Anweisungen 
        # dürfen Exceptions werfen, wenn irgendwas nicht passt
        
        # die letzte Anweisung ist ein wahrer Wert (returned)
        1;
    };
}