1 package DBIx::Class::CDBICompat::Iterator;
6 use base 'DBIx::Class';
10 DBIx::Class::CDBICompat::Iterator - Emulates the extra behaviors of the Class::DBI search iterator.
14 See DBIx::Class::CDBICompat for usage directions.
18 Emulates the extra behaviors of the Class::DBI search iterator.
20 =head2 Differences from DBIx::Class result set
22 The CDBI iterator returns true if there were any results, false otherwise. The DBIC result set always returns true.
27 sub _init_result_source_instance {
30 my $table = $class->next::method(@_);
31 $table->resultset_class("DBIx::Class::CDBICompat::Iterator::ResultSet");
36 =head1 FURTHER QUESTIONS?
38 Check the list of L<additional DBIC resources|DBIx::Class/GETTING HELP/SUPPORT>.
40 =head1 COPYRIGHT AND LICENSE
42 This module is free software L<copyright|DBIx::Class/COPYRIGHT AND LICENSE>
43 by the L<DBIx::Class (DBIC) authors|DBIx::Class/AUTHORS>. You can
44 redistribute it and/or modify it under the same terms as the
45 L<DBIx::Class library|DBIx::Class/COPYRIGHT AND LICENSE>.
50 DBIx::Class::CDBICompat::Iterator::ResultSet;
55 use base qw(DBIx::Class::ResultSet);
58 # Performance hack so internal checks whether the result set
59 # exists won't do a SQL COUNT.
60 return 1 if caller =~ /^DBIx::Class::/;
65 sub _construct_results {
68 my $rows = $self->next::method(@_);
70 if (my $f = $self->_resolved_attrs->{record_filter}) {
71 $_ = $f->($_) for @$rows;