[dbsrgits/DBIx-Class.git] / lib / DBIx / Class / CDBICompat / Iterator.pm

package DBIx::Class::CDBICompat::Iterator;

use strict;
use warnings;

sub _init_result_source_instance {
  my $class = shift;
  
  my $table = $class->next::method(@_);
  $table->resultset_class("DBIx::Class::CDBICompat::Iterator::ResultSet");

  return $table;
}


package DBIx::Class::CDBICompat::Iterator::ResultSet;

use strict;
use warnings;

use base qw(DBIx::Class::ResultSet);

sub _bool {
  return $_[0]->count;
}

1;
Commit	Line	Data
c0494fe1	1	package DBIx::Class::CDBICompat::Iterator;
	2
	3	use strict;
	4	use warnings;
	5
	6	sub _init_result_source_instance {
	7	my $class = shift;
	8
	9	my $table = $class->next::method(@_);
	10	$table->resultset_class("DBIx::Class::CDBICompat::Iterator::ResultSet");
	11
	12	return $table;
	13	}
	14
	15
	16
	17	package DBIx::Class::CDBICompat::Iterator::ResultSet;
	18
	19	use strict;
	20	use warnings;
	21
	22	use base qw(DBIx::Class::ResultSet);
	23
	24	sub _bool {
	25	return $_[0]->count;
	26	}
	27
	28	1;