my $w = Date.today.day-of-week;
given $w {
when 1 {
proceed;
}
when 2 {
proceed;
}
when 4 {
"Week".say;
}
when 3 {
"Hump day".say;
}
when 5 {
"Thank God It's Friday".say;
}
when 6 {
proceed;
}
when 7 {
"Weekend".say;
}
default {
die "Unknown day";
}
}
Comments