Help for this page
eval { say $shop->ShopperDueDate->day_name };
package Shop; use Moose; .... has 'ShopperDueDate' => (...., isa => 'DateTime', default => sub { Dat +eTime->new });
say $shop->ShopperDueDate->day_name;