File Coverage

lib/Array/Split.pm

Criterion	Covered	Total	%
statement	30	30	100.0
branch	4	4	100.0
condition			n/a
subroutine	8	8	100.0
pod	2	2	100.0
total	44	44	100.0

use strict;
use warnings;

package Array::Split;

BEGIN {
    $Array::Split::VERSION = '1.103261';
}

# ABSTRACT: split an array into sub-arrays

use Sub::Exporter::Simple qw( split_by split_into );
use List::Util 'max';
use POSIX 'ceil';

sub split_by {
    my ( $split_size, @original ) = @_;

    $split_size = ceil max( $split_size, 1 );

    my @sub_arrays;
    for my $element ( @original ) {
        push @sub_arrays, [] if !@sub_arrays;
        push @sub_arrays, [] if @{ $sub_arrays[-1] } >= $split_size;

        push @{ $sub_arrays[-1] }, $element;
    }

    return @sub_arrays;
}

sub split_into {
    my ( $count, @original ) = @_;

    $count = max( $count, 1 );

    my $size = ceil @original / $count;

    return split_by( $size, @original );
}

1;

__END__