File Coverage

blib/lib/Str/Iter.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch	4	4	100.0
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	28	28	100.0

package Str::Iter;

use strict;
use warnings;

use Exporter qw(import);

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

our @EXPORT_OK = qw(str_iter);

sub str_iter {
    my ($str,  $n) = @_;
    $n = 1 unless defined $n;

    my $pos = 0;
    sub {
        if ($pos < length($str)) {
            my $substr = substr($str, $pos, $n);
            $pos += $n;
            return $substr;
        } else {
            return undef; ## no critic: Subroutines::ProhibitExplicitReturnUndef
        }
    };
}

1;
# ABSTRACT: Generate a coderef iterator to iterate a string one (or more) character(s) at a time

__END__