Re^2: Is there an easy way to get the start date of the current week?

It doesn't find the current week — it finds the week before and after a reference date — and it's more elaborate than necessary.

For Sunday,

my $dt = DateTime->today();
my $dow = $dt->day_of_week();
$dt->substract( days => $dow % 7 );
[download]

For Monday,

my $dt = DateTime->today();
my $dow = $dt->day_of_week();
$dt->substract( days => ( $dow + 6 ) % 7 );
[download]

Comment on Re^2: Is there an easy way to get the start date of the current week? Select or Download Code