http://www.perlmonks.org?node_id=136133


in reply to (Ovid - Why I love nested If-Else blocks)
in thread Why I Hate Nested If-Else blocks

You can debate all day about whether this is good or bad, better or worse (as we seem to be doing on that other thread), but I'm compelled to mention it (-:
{
  last unless $foo > 7;
  bar_func($foo),last if $bar;
  # Or... $bar and do { bar_func($foo); last };
  baz_func($foo), last if $baz;
}

[download]

In Section Meditations