X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FCDBICompat%2FLazyLoading.pm;fp=lib%2FDBIx%2FClass%2FCDBICompat%2FLazyLoading.pm;h=8a7c17b533da57a2ce65251eba073fda1766017c;hb=a9433341369da32eafd7509f49477b44c84bcbeb;hp=ff235e2b8797f6971a85a5a06c64310c7b6ffb7f;hpb=8292706e66edd1a95b3af7796aa013285fc842ef;p=dbsrgits%2FDBIx-Class.git diff --git a/lib/DBIx/Class/CDBICompat/LazyLoading.pm b/lib/DBIx/Class/CDBICompat/LazyLoading.pm index ff235e2..8a7c17b 100644 --- a/lib/DBIx/Class/CDBICompat/LazyLoading.pm +++ b/lib/DBIx/Class/CDBICompat/LazyLoading.pm @@ -3,8 +3,11 @@ package 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, { cols => [ $self->columns('Essential') ] }); + return $rs; } sub get_column {