#! /usr/bin/perl
use strict;
use warnings;
use DateTime;

# Quick-Hacked: extend DateTime to set/check for business days
{ 
	# default setting: 1-5 (Mo-Fr) are business days
	my %business_days;
	@business_days{1..5} = (1)x5;

	# Method to define business days
	sub DateTime::set_business_days {
		my $self = shift;
		%business_days = ();
		$business_days{$_} = 1		for @_;
	}

	# Method if given wday is a business day
	sub DateTime::is_business_day {
		my $self = shift;
		my $wday = $self->wday;

		return 1	if $business_days{$wday};
		return 0;
	}
}


my $day1 = DateTime->now( time_zone => 'Europe/Berlin' );
$day1->set_business_days( 1 .. 5 );

my $add = 7;

while ( $add ) {
	$day1->add( days => 1 );
	my $wday = $day1->wday;
	$add--	if $day1->is_business_day;
}

print $day1->ymd, $/;