-package DBIx::Class::CDBICompat::LazyLoading;
+package # hide from PAUSE
+ DBIx::Class::CDBICompat::LazyLoading;
use strict;
use warnings;
-sub _select_columns {
- return shift->columns('Essential');
+sub resultset_instance {
+ my $self = shift;
+ my $rs = $self->next::method(@_);
+ $rs = $rs->search(undef, { columns => [ $self->columns('Essential') ] });
+ return $rs;
}
sub get_column {