Perl 6 related release dates

release-dates.pl

use v6;

sub parrot-release-after(Date $date is copy = Date.today) {
    $date++ until $date.day-of-week == 2;
    $date += 7 until ($date  - $date.truncated-to(:month)) div 7 == 2;
    $date;
}

sub rakudo-release-after(Date $date = Date.today) {
    parrot-release-after($date) + 2;
}

sub niecza-release-after(Date $date = Date.today) {
    my $d = $date.truncated-to(:week);
    $d += 7 while $d.month == ($d + 7).month;
    $d;
}

say 'parrot: ', parrot-release-after;
say 'rakudo: ', rakudo-release-after;
say 'niecza: ', niecza-release-after;