use List::Util;
use List::MoreUtils;
-our $VERSION = '0.97';
+our $VERSION = '1.04';
$VERSION = eval $VERSION;
our $AUTHORITY = 'cpan:STEVAN';
return sub {
my ( $instance, $n, $f ) = @_;
my $it = List::MoreUtils::natatime($n, @{ $reader->($instance) });
- if ($f) {
- while (my @vals = $it->()) {
- $f->(@vals);
- }
+ return $it unless $f;
+
+ while (my @vals = $it->()) {
+ $f->(@vals);
}
- $it;
+
+ return;
};
}