use strict;
use warnings;
+use base 'DBIx::Class';
=head1 NAME
=head1 SYNOPSIS
-See DBIx::Class::CDBICompat for directions for use.
+See DBIx::Class::CDBICompat for usage directions.
=head1 DESCRIPTION
return $table;
}
+=head1 FURTHER QUESTIONS?
+Check the list of L<additional DBIC resources|DBIx::Class/GETTING HELP/SUPPORT>.
-package DBIx::Class::CDBICompat::Iterator::ResultSet;
+=head1 COPYRIGHT AND LICENSE
+
+This module is free software L<copyright|DBIx::Class/COPYRIGHT AND LICENSE>
+by the L<DBIx::Class (DBIC) authors|DBIx::Class/AUTHORS>. You can
+redistribute it and/or modify it under the same terms as the
+L<DBIx::Class library|DBIx::Class/COPYRIGHT AND LICENSE>.
+
+=cut
+
+package # hide
+ DBIx::Class::CDBICompat::Iterator::ResultSet;
use strict;
use warnings;
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;