This way you don't need it to be an object and you don't need any special end-of-list elements.my $iter = sub { @foo ? shift @foo : () }; while (my ($elem) = $iter->()) { # $elem may be undefined. }
In reply to Re^2: Return a list or an iterator
by Anonymous Monk
in thread Return a list or an iterator
by nferraz
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |