-package DBIx::Class::CDBICompat::LazyLoading;
+package # hide from PAUSE
+ DBIx::Class::CDBICompat::LazyLoading;
use strict;
use warnings;
sub resultset_instance {
my $self = shift;
my $rs = $self->next::method(@_);
- $rs = $rs->search(undef, { cols => [ $self->columns('Essential') ] });
+ $rs = $rs->search(undef, { columns => [ $self->columns('Essential') ] });
return $rs;
}
$self->next::method(@_[1..$#_]);
}
+sub _ident_cond {
+ my ($class) = @_;
+ return join(" AND ", map { "$_ = ?" } $class->primary_columns);
+}
+
sub _flesh {
my ($self, @groups) = @_;
@groups = ('All') unless @groups;