use autobox::Core;
use Class::Null;
sub UNIVERSAL::andand { return defined $_ ? $_ : Class::Null->new for shift }

##</code><code>##

for ( grep $_, $shop->ShopperDueDate ) { say $_->day_name() }

##</code><code>##

sub iftrue { for ( grep $_, $_[0] ) { $_[1]->() } }

iftrue $shop->ShopperDueDate, sub { say $_->day_name() };

##</code><code>##

sub cond(&$) { for ( grep $_, $_[1] ) { $_[0]->() } }

cond { say $_->day_name() } $shop->ShopperDueDate;