#!/usr/bin/perl -w
use strict;
use warnings;
use diagnostics;

my %env;
add_ausfuehrungsrhythmen (\%env);

my $naechster = &{$env{ausfuehrungsrhythmus}{monatlich}{berechnung}}('24.10.2010');
print "Naechster: $naechster\n";
$naechster = &{$env{ausfuehrungsrhythmus}{jaehrlich}{berechnung}}('24.10.2010');
print "Naechster: $naechster\n";

sub add_ausfuehrungsrhythmen {
	my ($env) = @_;
	%{$env -> {ausfuehrungsrhythmus}{monatlich}} = (
		anzeige		=> 'Monatlich',
		berechnung	=>
			sub {
				use Date::Calc qw (
					Add_Delta_YMD
				);
				my $letzte_ausf = shift;
				my $naechste = sprintf ('%02u.%02u.%04u', reverse Add_Delta_YMD (reverse (split /\./,$letzte_ausf),0,1,0));
				return $naechste;
			},
	);
	%{$env -> {ausfuehrungsrhythmus}{jaehrlich}} = (
		anzeige		=> 'Jährlich',
		berechnung	=>
			sub {
				my $letzte_ausf = shift;
				my $naechste = sprintf ('%02u.%02u.%04u', reverse Add_Delta_YMD (reverse (split /\./,$letzte_ausf),1,0,0));
				return $naechste;
			},
	);
}