Also, if one doesn't like normal, "deterministic" multiple exit points, then one must be horrified by the concept of exceptions.

But when multiple exit is used in the case of error conditions, exceptions make things even cleaner.

sub walk_and_do
{
    my $self = shift;
    $_->walk_and_do  for @{$self->children};
    $self->do_my_stuff; # could throw an exception.
}

eval { $root->walk_and_do; };
[download]

The fact that do_my_stuff could throw an exception means that any of the recursive calls to walk_and_do could exit early, via the exception. And that is as it should be.

jdporter
The 6th Rule of Perl Club is -- There is no Rule #6.