eval { say $shop->ShopperDueDate->day_name };

##</code><code>##

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

##</code><code>##

say $shop->ShopperDueDate->day_name;