Select Code to Download

if ($po->status->name =~ /^(sent|pending|waiting|procratinating|delaye
+d)$/i) {

my $status=$pos->status;
if ($status->is('Pending')) {}
if ($status->in(qw(sent pending waitning procrastinating delayed)) { }