=head1 SYNOPSIS
-See DBIx::Class::CDBICompat for directions for use.
+See DBIx::Class::CDBICompat for usage directions.
=head1 DESCRIPTION
sub _init_result_source_instance {
my $class = shift;
-
+
my $table = $class->next::method(@_);
$table->resultset_class("DBIx::Class::CDBICompat::Iterator::ResultSet");
return $_[0]->count;
}
+sub _construct_results {
+ my $self = shift;
+
+ my $rows = $self->next::method(@_);
+
+ if (my $f = $self->_resolved_attrs->{record_filter}) {
+ $_ = $f->($_) for @$rows;
+ }
+
+ return $rows;
+}
+
1;