DBIx::FetchLoop 0.6

DBIx::FetchLoop is a Perl module that can fetch with change detection and aggregates.

SYNOPSIS

use DBIx::FetchLoop;

$lph = DBIx::FetchLoop->new($sth, $dbi_method);

$hash_ref = $lph->fetch_current_data;
$rowset = $hash_ref->{previous};
$rowset = $hash_ref->{current};
$rowset = $hash_ref->{next};

$rowset = $lph->fetch_current_row;

$rowset = $lph->previous;
$rowset = $lph->current;
$rowset = $lph->next;

$lph->set_aggregate($new_field, $field);
$lph->reset_aggregate($new_field);

$lph->set_concatenate($new_field, $field);
$lph->reset_concatenate($new_field);

$boolean = $lph->pre_loop($field);
$boolean = $lph->post_loop($field);

$boolean = $lph->pre_loop_substr($field,$offset,$length);
$boolean = $lph->post_loop_substr($field,$offset,$length);

$boolean = $lph->is_first;
$boolean = $lph->is_last;

$count = $lph->count;

DBIx::FetchLoop is a supplemental approach for data retrieval with DBI. Result rows are queued with hash references to previous, current and next rows. Utility functions allow for simplified comparison of a field between previous and current or current and next rows. Additional functions allow you automatically create new fields for aggregating or concatenating based on fields in the resulting dataset.

Note: This module was created with ease of use and performance in mind. This module is intended to eliminate the need for temporary variables for loop detection as well as aggregation and concatenation. The reason that not all DBI methods for data retrieval are not implemented (such as selectall_arrayref) is that the modules design for performance would be defeated.

In essence you can write cleaner looking, more efficient code minus a few hassles.