-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 {
my %want;
$want{$_} = 1 for map { keys %{$self->_column_groups->{$_}} } @groups;
if (my @want = grep { !exists $self->{'_column_data'}{$_} } keys %want) {
- my $cursor = $self->storage->select($self->_table_name, \@want,
+ my $cursor = $self->result_source->storage->select(
+ $self->result_source->name, \@want,
\$self->_ident_cond, { bind => [ $self->_ident_values ] });
#my $sth = $self->storage->select($self->_table_name, \@want,
# $self->ident_condition);