Sha256: 0255226f3dedc2212d9ddfd65921bcb14bb42f0c614b5e7dfa9b5b47db5ad576
Contents?: true
Size: 866 Bytes
Versions: 83
Compression:
Stored size: 866 Bytes
Contents
unit module Meetup:ver<2>;
sub meetup-date (Str:D $desc --> Date:D) is export {
my (Date $date, Str $day-of-week);
given $desc.words {
$date = Date.new: year => .[*-1];
given .[*-2] {
$date.=later: months => %(<
January February March
April May June
July August September
October November December
>.antipairs){$_}
}
$day-of-week = S/day// given .[1].lc;
$date.=later: days => (given .[0] {
when 'first' { 0}
when 'second' { 7}
when 'third' {14}
when 'fourth' {21}
when /teenth$/ {$day-of-week = S/teenth// given $_; 12}
when 'last' {$date.=later(:1month); -7}
});
}
$date.=succ until $date.day-of-week == (given <
mon tues
wednes thurs
fri satur sun
> {
%(.values Z=> .keys »+» 1){$day-of-week}
});
return $date;
}
Version data entries
83 entries across 83 versions & 1 rubygems