Help for this page
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)) { }