DBIx::Class::CDBICompat::Iterator - Emulates the extra behaviors of the Class::DBI search iterator.

DBIx-Class documentation Contained in the DBIx-Class distribution.

Index

Code Index:

NAME

Top

DBIx::Class::CDBICompat::Iterator - Emulates the extra behaviors of the Class::DBI search iterator.

SYNOPSIS

Top

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

DESCRIPTION

Top

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

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.

DBIx-Class documentation Contained in the DBIx-Class distribution. 
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 {
    # Performance hack so internal checks whether the result set
    # exists won't do a SQL COUNT.
    return 1 if caller =~ /^DBIx::Class::/;

    return $_[0]->count;
}

1;