package CD;
  use base qw(Class::DBI);
  __PACKAGE__->set_db(...);

  use Class::DBI::Plugin::Iterator;    # just it

  package main;
  use CD;
  my $itr = CD->retrieve_all;
  my @discs = $itr->slice(0,9);

  my $new_it = $itr->slice(10,19);

  use Class::DBI::Plugin::Iterator prefetch => 5;

  use Class::DBI::Plugin::Iterator driver => 'mysql4';

Takuji ASAKURA, <asakura@weakpoint.jpn.org>

Class::DBI, Class::DBI::Iterator