File Coverage

blib/lib/Brackup/Chunker/Default.pm

Criterion	Covered	Total	%
statement	17	17	100.0
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod	0	1	0.0
total	20	21	95.2

package Brackup::Chunker::Default;
use strict;

sub chunks {
    my ($class, $file) = @_;
    my @chunk_list;

    my $root       = $file->root;
    my $chunk_size = $root->chunk_size;
    my $size       = $file->size;

    my $offset = 0;
    while ($offset < $size) {
        my $len = _min($chunk_size, $size - $offset);
        my $chunk = Brackup::PositionedChunk->new(
                                                  file   => $file,
                                                  offset => $offset,
                                                  length => $len,
                                                  );
        push @chunk_list, $chunk;
        $offset += $len;
    }
    return @chunk_list;
}

sub _min {
    return (sort { $a <=> $b } @_)[0];
}

1;