lib/DBIx/Class/CDBICompat/Iterator.pm

   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;