File Coverage

blib/lib/Sub/Sequence.pm

Criterion	Covered	Total	%
statement	33	33	100.0
branch	14	14	100.0
condition	2	3	66.6
subroutine	5	5	100.0
pod	1	1	100.0
total	55	56	98.2

package Sub::Sequence;
use strict;
use warnings;
use parent qw/Exporter/;

our $VERSION = '0.03';

our @EXPORT = qw/
    seq
/;

sub seq {
    my ($list, $every, $code) = @_;

    _croak("First arg must ARRAY REF: $list") if ref($list) ne 'ARRAY';
    _croak("Second arg is wrong: $every")     if $every < 1;
    _croak("Third arg must CODE REF: $code")  if ref($code) ne 'CODE';

    my $loop = 0;
    my @result;

    my $last = $#{$list};

    while (1) {
        my $start = $loop * $every;
        last if $start > $last;
        my $end = $start + $every - 1;
        if ($end > $last) { $end = $last; }
        $loop++;
        my $ret = $code->(
            +[ @{$list}[$start .. $end] ],
            $loop,
            ($loop - 1) * $every
        );
        if (wantarray && ref($ret) eq 'ARRAY') {
            push @result, @{$ret};
        }
        else {
            push @result, $ret;
        }
    }

    return wantarray ? @result : \@result;
}

sub _croak {
    require Carp;
    Carp::croak($_[0]);
}

1;

__END__