while (my $next = $iter->()) {
    # ...
    last if $iter->('exhausted');
}

##</code><code>##

while (my $next = $iter{next}->()) {
    # ...
    last if $iter{exhausted}->();
}