lib/DBIx/Class/Cursor.pm

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