package Shop; use Moose; .... has 'ShopperDueDate' => (...., isa => 'DateTime', default => sub { DateTime->new });