File Coverage

blib/lib/Hash/Iter.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch	2	2	100.0
condition			n/a
subroutine	6	6	100.0
pod	2	2	100.0
total	28	28	100.0

package Hash::Iter;

use strict;
use warnings;

use Exporter qw(import);

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2024-11-04'; # DATE
our $DIST = 'Hash-Iter'; # DIST
our $VERSION = '0.001'; # VERSION

our @EXPORT_OK = qw(hash_iter pair_iter);

sub hash_iter {
    my $hash = shift;
    my $i = 0;

    my @ary = keys %$hash;
    sub {
        if ($i < @ary) {
            my $key = $ary[$i++];
            return ($key, $hash->{$key});
        } else {
            return ();
        }
    };
}

sub pair_iter {
    hash_iter({@_});
}

1;
# ABSTRACT: Generate a coderef iterator for a hash

__END__