$send_flag = ($bbstatus ne $last_bbstatus)
             or (($now - $last_send_time) > $min_frequency)
             or defined($OPTS::opts{f});

##</code><code>##

my @messages = (
  [ sub { $bbstatus ne $last_bbstatus }, "Status not changed" ],
  [ sub { ($now - $last_send_time) > $min_frequency }, "Last send too old" ],
  [ sub { defined($OPTS::optf{f}) }, "Forced send requested" ],
  [ sub { 1 }, "No changes" ],
);

foreach my $m (@messages) {
  print $m->[1], last if $m->[0]->();
}

##</code><code>##

my $send_message =
  ($bbstatus ne $last_bbstatus and "Status no changed")
    or (($now - $last_send_time) > $min_frequency and "Last send too old")
    or (defined($OPTS::opts{f}) and "Forced send requested")
    or "No changes";
my $send_flag = $send_message ne "No changes";