File Coverage

lib/Array/Split.pm

Criterion	Covered	Total	%
statement	25	25	100.0
branch			n/a
condition			n/a
subroutine	7	7	100.0
pod	2	2	100.0
total	34	34	100.0

use strict;
use warnings;

package Array::Split;
$Array::Split::VERSION = '1.173190';

# 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 = shift;

    $split_size = max( $split_size, 1 );

    my @sub_arrays;
    while ( @_ ) {
        push @sub_arrays, [ splice @_, 0, $split_size ];
    }

    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__