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

use DateTime;
use DateTime::Set;

my $start = DateTime->today();
my $end   = DateTime->today()->add('days' => 90); 

my $biweekly = DateTime::Set->from_recurrence(
    'recurrence' => sub {
          return $_[0]->add('days' => 14)->truncate('to' => 'day')
		},
     'start' => $start,
	 'end' => $end, # !!! This is critical.
);

my $iter = $biweekly->iterator;
print "This is the set with defined 'end': ", $/;
while ( my $dt = $iter->next )
{
    print $dt->datetime, $/;
};
print $/;

print 'TESTING whether Date is in set...', $/;
my $date = DateTime->today();
print $biweekly->contains($date), ' ', $date->ymd, $/;
$date->add('days' => 7);
print $biweekly->contains($date), ' ', $date->ymd, $/;
$date->add('days' => 7);
print $biweekly->contains($date), ' ', $date->ymd, $/;
$date->add('days' => 7);
print $biweekly->contains($date), ' ', $date->ymd, $/;
$date->add('days' => 7);
print $biweekly->contains($date), ' ', $date->ymd, $/;
$date->add('days' => 7);
print $biweekly->contains($date), ' ', $date->ymd, $/;

print $/;
print "This is the begin of the set with 'end' commented out: ", $/;

$biweekly = DateTime::Set->from_recurrence(
    'recurrence' => sub {
          return $_[0]->add('days' => 14)->truncate('to' => 'day')
		},
     'start' => $start,
	 # 'end' => $end, # !!! This is critical.
);

$iter = $biweekly->iterator;
while ( my $dt = $iter->next )
{
        last if $dt > $end;  # to avoid the infinite loop.
		print $dt->datetime, $/;
};
print $/;

print 'TESTING whether Date is in set...', $/;
$date = DateTime->today();
print $biweekly->contains($date), ' ', $date->ymd, $/;
$date->add('days' => 7);
print $biweekly->contains($date), ' ', $date->ymd, $/;
$date->add('days' => 7);
print $biweekly->contains($date), ' ', $date->ymd, $/;
$date->add('days' => 7);
print $biweekly->contains($date), ' ', $date->ymd, $/;
$date->add('days' => 7);
print $biweekly->contains($date), ' ', $date->ymd, $/;
$date->add('days' => 7);
print $biweekly->contains($date), ' ', $date->ymd, $/;