lib/DBIx/Class/Cursor.pm

   1 package # hide from PAUSE
   2     DBIx::Class::Cursor;
   3
   4 use strict;
   5 use warnings;
   6
   7 sub new {
   8   die "Virtual method!";
   9 }
  10
  11 sub next {
  12   die "Virtual method!";
  13 }
  14
  15 sub reset {
  16   die "Virtual method!";
  17 }
  18
  19 sub all {
  20   my ($self) = @_;
  21   $self->reset;
  22   my @all;
  23   while (my @row = $self->next) {
  24     push(@all, \@row);
  25   }
  26   $self->reset;
  27   return @all;
  28 }
  29
  30 1;