Re: improve ugly flow control

[Arunbear]

my @Tests = (
    { 
      cond   => sub {$_[0] eq 'blue'}  , 
      action => sub { print "$_[0] is good"} 
    },
    { 
      cond   => sub {$_[0] eq 'red'}   , 
      action => sub { print "$_[0] is bad"}  
    },
    { 
      cond   => sub {$_[0] eq 'green'} , 
      action => sub { print "$_[0] is ugly"} 
    },
);

OUTER: foreach my $try (@options) {
    foreach (@Tests) { 
        if ($_->{cond}->($try)) {
            $_->{action}->($try);
            $_->{success}++;
            last OUTER;
        }
    }    
}

log_failure() unless grep {exists $_->{success}} @Tests;