Add NoObjectIndex which turns the live object index off and removes all the

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

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

use strict;
use warnings;

=head1 NAME

DBIx::Class::CDBICompat::Iterator

=head1 SYNOPSIS

See DBIx::Class::CDBICompat for directions for use.

=head1 DESCRIPTION

Emulates the extra behaviors of the Class::DBI search iterator.

=head2 Differences from DBIx::Class result set

The CDBI iterator returns true if there were any results, false otherwise.  The DBIC result set always returns true.

=cut


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;