paste.perl

sub setDataByCallback {
    my $self     = shift;
    my $callback = shift;

    my $pageNumber = $self->getPageNumber;
    my $rowsPerPage = $self->{_rpp};
    my $start = ( ($pageNumber - 1) * $rowsPerPage );

    my $obj = $callback->($start, $rowsPerPage);

    $self->{_callbackObj} = $obj;
    $self->{_setByQuery}    = 0;
    $self->{_setByArrayRef} = 0;
    $self->{_setByCallback} = 1;
    return '';
}