view release on metacpan or  search on metacpan

lib/PerlX/ifor.pm  view on Meta::CPAN

our $DATE = '2019-04-16'; # DATE
our $VERSION = '0.001'; # VERSION

use strict;
use warnings;

use Exporter qw(import);
our @EXPORT = qw(ifor);

sub ifor(&$) {
    my ($code, $iterator) = @_;

    if (ref $iterator eq 'CODE') {
        local $_;
        while (defined($_ = $iterator->())) {
            $code->();
        }
    } else {
        die "Only coderef iterator is supported at the moment";
    }