NAME

Maptastic::DBI - a trivial little wrapper for a row iterator

SYNOPSIS

 use Maptastic::DBI;

 # the SQL statement (or DBI statement handle, if you prefer)
 # is the last argument
 my $ri = row_iter($dbh, $box, <<SQL);
 select item
 from   boxes
 where  box = ?
 SQL

 while ( my $row = $ri->() ) {
     #...
 }

 # you can also put items back
 $ri->($item);

 # With Maptastic, grab all the rows at once.
 use Maptastic;
 my @rows = slurp row_iter($dbh, $sql);

DESCRIPTION

This module contains a very simple wrapper for DBI calls, designed for fans of iterators. It just wraps the usual:

  my $sth = $dbh->prepare(<<SQL);
  select
     foo
  from
     bar
  where
     baz = ?
  SQL
  $sth->execute($baz);
  while (my $row = $sth->fetchrow_hashref) {

  }

into:

  my $ri = row_iter($dbh, $baz, <<SQL);
  while (my $row = $ri->()) {
  

  }

SEE ALSO

_Higher Order Perl_, Mark Jason Dominus.

AUTHOR AND LICENSE

Copyright (c) 2007, Catalyst IT (NZ) Ltd. All rights reserved. This program is free software; you may use it, and/or distribute it under the same terms as Perl itself.