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=b7d3633219be41f6584e0093f919363d4a31bffb;hb=831ad24ff5383c48d9fd4ca9d321bd768d0a20b9;hp=48a311072f8ec1c60b84d98015da2ec99d433cfb;hpb=e147365d7612e124e03926dca25e870aad1f0d5e;p=dbsrgits%2FDBIx-Class.git

diff --git a/lib/DBIx/Class/CDBICompat/LazyLoading.pm b/lib/DBIx/Class/CDBICompat/LazyLoading.pm
index 48a3110..b7d3633 100644
--- a/lib/DBIx/Class/CDBICompat/LazyLoading.pm
+++ b/lib/DBIx/Class/CDBICompat/LazyLoading.pm
@@ -22,6 +22,11 @@ sub get_column {
   $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;