sub kunden : Global {
    my ($self, $c, $id) = @_;
	my $dbh = $c->model('xxx')->dbh;
	...
	sub checkKundenExistance
	{
	...
	}
	...
	sub convertDate
	{
	}
}