view release on metacpan or  search on metacpan

t/Catmandu-IterableOnce.t  view on Meta::CPAN

        sub {
            return $data->[$n++] if $n < @$data;
            return;
        };
    }
}

my $iter = T::IterableOnce->new;

is_deeply $iter->to_array, [1, 2, 3], 'first iteration gives results';
is_deeply $iter->to_array, [],        'repeated iterations give no results';

done_testing;