Select Code to Download

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

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

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

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

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

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