#! /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, $/;