SYNOPSIS

    use Sub::Iterator qw(gen_array_iterator gen_fh_iterator);

    my $sub = gen_array_iterator([1, 2, 3]);
    $sub->(); # -> 1
    $sub->(); # -> 2
    $sub->(); # -> 3
    $sub->(); # -> undef

FUNCTIONS

gen_array_iterator(\@ary) -> code

gen_fh_iterator($fh) -> code