[dbsrgits/DBIx-Class-Historic.git] / lib / DBIx / Class / Cursor.pm

package DBIx::Class::Cursor;

use strict;
use warnings;

sub new {
  die "Virtual method!";
}

sub next {
  die "Virtual method!";
}

sub reset {
  die "Virtual method!";
}

sub all {
  my ($self) = @_;
  $self->reset;
  my @all;
  while (my @row = $self->next) {
    push(@all, \@row);
  }
  $self->reset;
  return @all;
}

1;
Commit	Line	Data
1923c0b4	1	package DBIx::Class::Cursor;
	2
	3	use strict;
	4	use warnings;
1923c0b4	5
1923c0b4	6	sub new {
28927b50	7	die "Virtual method!";
1923c0b4	8	}
	9
	10	sub next {
28927b50	11	die "Virtual method!";
1923c0b4	12	}
	13
	14	sub reset {
28927b50	15	die "Virtual method!";
1909f72b	16	}
1909f72b	17
1a14aa3f	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
1923c0b4	29	1;