view release on metacpan or  search on metacpan

lib/Data/Generator/FromDDL/RecordSet.pm  view on Meta::CPAN

    my ($values) = @_;
    return compress(join ',', @$values);
}

sub _fetch_values_from_chunk {
    my ($chunk) = @_;
    my $joined_chunk = uncompress($chunk);
    return split ',', $joined_chunk;
}

sub iterate_through_chunks(&) {
    my ($self, $code) = @_;
    my $columns = $self->columns;
    my $num_of_chunks = ceil($self->n / RECORDS_PER_CHUNK);

    my $table = $self->table;
    my @fields = map { $_->{field} } @{$self->columns};
    for my $chunk_no (0..($num_of_chunks - 1)) {
        my @rows = $self->_construct_rows_with_chunk_no($chunk_no);
        $code->($table, \@fields, \@rows);
    }