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